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NRL 324-m3 CHAMBER PRESSURIZATION EXPERIMENT: 
PRESSURANT CONCENTRATION HISTORIES WITH AND WITHOUT 
OBSTACLES TO FLOW 


INTRODUCTION 


Gas-mixing and scale-modeling studies continue in the new 324-m? fire-test facility at the Naval 
Research Laboratory (NRL). These studies extend previous studies conducted in the NRL 5-m? 
chamber and in its one-sixth-scale model at the University of Washington (UW). We explore further 
the concept of suppressing unwanted fires in pressurizable spaces by injection of nitrogen gas as pro- 
posed by Carhart and Fielding [1]. The chamber of this new facility is of sufficient size to allow realis- 
tic full-scale tests. Objectives of these tests were to place the new faciliiy in operation, to infer pres- 
surant gas-concentration histories from temperature (thermocouple) measurements during chamber 
pressurization from 1 to 2 atmospheres (101.3 to 202.6 kPa), and to present results in a convenient 
form consistent with the Corlett et al. scale-modeling hypothesis [2]. 


In this report, we describe the 324-m? chamber, its nitrogen pressure system, and experiments 
both with and without obstacles to flow, and we then present the reduced data. 


DESCRIPTION OF EQUIPMENT 


Figure 1 shows a view of the 324-m? facility as one looks to the southwest. The steel pressure 
vessel lies horizontally on two concrete piers; design pressure is 5 atmospheres (507 kPa) according to 
the ASME Unfired Pressure Vessel Code. The chamber was tested hydrostatically at 7.65 atmospheres 
(775 kPa); 324.2 m? of water filled the vessel. Its inside diameter is 5.85 m and its length is 14.82 m. 
The cylindrical section is 8.35 m long. Installed in the center of the north hemispherical end is a 457- 
mm-diameter pressure-relief device. The disk design rupture pressure is 5 atmospheres for tempera- 
tures to 260°C. A catwalk attaches.around the vessel on all sides but the north, providing convenient 
access to the seven viewports, three on the east and four on the west. Above these viewports, four 
nitrogen pressure cylinders are mounted symmetrically. Each cylinder is 8.534 m long and each has a 
0.610-m diameter. Each has a volume of 2.088 m? and a design pressure of 122 atmospheres (12.36 
MPa). A nitrogen tube trailer shown in the right foreground of Fig. 1 supplies nitrogen gas, beginning 
at 233 atmospheres (23.61 MPa), to the four pressure cylinders, which normally are charged to 100 
atmospheres (10.13 MPa). Just west of the chamber, and behind the tube trailer, the instrument trailer 
appears. It houses all instruments, data collection devices, and control devices. Facing the instrument 
trailer, but not visible in Fig. 1, is a walk-in hatch, centered in the west side of the chamber, which pro- 
vides chamber access. 


Nitrogen Pressurization System 


Figure 2 is a schematic of the high-pressure piping system typical of each nitrogen pressure 
cylinder. For convenience, only one pressure cylinder and the north manifold are shown. Both 
cylinders on the west side connect to the north manifold, while the two cylinders on the east side con- 
nect to the south manifold. Flow is controlled from either or both ends of a cylinder to its manifold by 
a manual valve and an actuated 2-in. (5-cm) valve in series. Four pipes from each manifold extend 
into the chamber, so that a nozzle exit is located 1.170 m from the top inside surface of the chamber 
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: Fig. | ~ The NRL 324-m? fire chamber facility 
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Fig. 2 — Typical high-pressure piping for each of the 
four nitrogen pressure cylinders 
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and is directed vertically downward on a line normal to the chamber axis. The four pipes from each 
manifold are located along the chamber length so that either a three-nozzle or a four-nozzie array 
(equally spaced) can be selected. Pipe extensions without nozzles are capped. The high-pressure steel 
pipe is 2-in. (S-cm), schedule 80. Nozzle flow calibration is possible since an ASTM, thin-plate, 
square-edged orifice [3] connects between the north and south manifold. 


Nozzles 
Figure 3 shows a nozzle assembly view. Nozzles connect to the 2-in. pipe extensions. The high- 
density polyethylene liner minimizes heat flow to the nitrogen gas stream and thus maximizes the tem- 


perature difference between the injected pressurant gas and the chamber resident gas. In this system 
flow in each nozzle throat remains critical [4) during chamber pressurization. 
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Fig. 3 — Sectional view of nozzle assembly 
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Thermocouple and Nozzle Locations 


In Fig. 4, we show the two positions of the 13-thermocouple array. Position 2 is along the 
chamber centerline, while position 1 is displaced laterally 0.6 of the distance to the chamber wall and is 
in the upper northwest quadrant of the chamber. If the z = 0 plane bisects the chamber normal to its 
axis and positive z-values are to the north and negative ones to the south, then the cylindrical r- and 0- 
coordinates for position 2 are 0.000 m and 0°, respectively, for position | they are 2.017 m and 45°, 
respectively. The z-coordinates for each of the 13 thermocouples remain the same for both positions, 
ie, z = 2,, where /= 1, ...,13, and the 13 z-coordinates are, respectively, —-0.586, —0.293, 0.000, 
0.293, 0.586, 0.878, 2.049, 2.342, 2.635, 2.928, 3.220, 3.513, and 3.806 m. The thermocouples are 
bare-wire chrome!-alumei, 0.10 mm in diameter, with time constants of Jess than 0.2 s. 


NOZZLE LOCATIONS 


POSITION 1 


POSITION 2 


ELEVATION VIEW END VIEW 


POSITION 2 


POSITION 1 


PLAN VIEW 


Fig. 4 — Schematic showing the two positions inside the chamber of the 13-thermocouple array: 
position | is off center. position 2 is along the chamber centerline. Three nozzle locations ate also 
Shown. 


When three nozzles are used, they are located in the three vertical planes z = +1.216, 0.0, and 
—1.216 m, with nozzle exits directed downward normal to the chamber axis and positioned 1.170 m 
below the top of the chamber wall. The south nozzle is in the plane z = ~1.216 m. 


Flow Obstacle 


Figure 5 is a plan-view sketch that shows the location of the flow obstacle in the chamber. The 
obstacle is a metal cabinet, 1.216 m wide by 1.216 m deep by 2.667 m high, with the top, bottom, and 
three sides closed. The fourth side is covered with a screen wire that has 15 openings per 25.4 mm 
with 0.25 mm wire diameter, the screen side is shown in Fig. 5 facing to the west. In the experiments, 
it also faced to the north. The top of the cabinet extends 0.686 m above the chamber centerline, along 
which the 13 thermocouples are positioned. 
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Fig. 5 ~ Plan-view schematic of chamber interior giving obstacle location and thermocouple ? locations 
for position 2 relative to the vertical plane z = 0 


EXPERIMENTAL PROCEDURE 


The procedure used for experiments without the flow obstacle (uncluttered) and the procedure 
used with the flow obstacle (cluttered) are described as follows. 


Without Flow Obstacle (Uncluttered) 


The same procedure was repeated in each of two sets of runs with no flow obstacle. There were 
seven replicate runs in set 1 and four in set 2 (see Table 1). For set 1, the thermocouple array was in 
position 1; for set 2, it was in position 2. Three pressure cylinders charged to about 100 atmospheres 
were used in each set. The two west cylinders fed nitrogen gas to the north manifold, and one east 


cylinder fed the south manifold. Flow was from both ends of each cylinder. The north manifold fed 
two nozzles (north and center) while the south fed the third (south). The z-coordinates for the north, 
center, and south nozzles were 3.513, 0.000, and —3.413 m, respectively. 


Table 1 ~ Description of Experiments 


Experimental Scaling Number | Thermocouple Nozzles Clutter Obstacle | Numbers of 
Set Run of Position Used Condition Screen A- and B- 
Number Numbers Runs Number Position Tables 


230-236 Unclut. 
237-240 Unclut. 


241-244 Cluttered 
(South) 


245-248 1 Cluttered 
(South) 


Data collection was started 30 s prior to the start of a run. A run was started by the simultaneous 
opening of the appropriate six activated valves. Nitrogen gas flowed into the chamber until its pressure 
increased from ] to 2 atmospheres, requiring about 12 s. The valves were then closed. Data collection 
continued for a total of 300 s. Seventeen channels of data were recorded by two data loggers (Doric- 
Digitrend 200) as follows: 


13 channels for the thermocouple array, 
2 channels for pressurant gas supply temperatures, 
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1 channel for chamber pressure, and 
1 channel for nitrogen cylinder pressures. 


Data loggers scanned each channel twice per second. Loggers were controlled in parallel so that each 
agreed in time. 


With Flow Obstacle (Cluttered) 


Two sets (3 and 4), of four replicate runs each, were made with an obstacle (see Table 1). The 
same procedure was used as described above, with the following exceptions. The thermocouple array 
was used only in position 1 and only the south nozzle was used. The south manifold was fed nitrogen 
by three pressure cylinders, the two east cylinders and one west cylinder. The chamber was pressurized 
to 2 atmospheres in about 30 s. For set 3, the screened side of the obstacle faced west; for set 4, it 
faced north. 


EXPERIMENTAL RESULTS 

Detailed data for the four sets of experiments listed in Table | are presented in a comprehensive 
series of five tables, A, B, C, D, and E. The information found in each comprehensive table is 
described below prior to discussion of the data. 
A-Tables 

Tables 2A to 20A, called A-tables, present temperature histories at 1-s intervals, as determined by 
the 13-thermocouple array at each /-Location, 1 through 13. Interior chamber coordinates of each /- 
location are given by the subtable located in the upper right-hand corner of the A-tables. In addition, 
the first four columns in the A-tables, respectively, give: 


(1) Time in seconds with ¢ = 0 corresponding to the time the activated-valve switch is thrown 
to open. 


(2) Nitrogen pressure cylinder pressures in atmospheres. 
(3) Pressurant gas supply temperature at nozzie exit in K. 
(4) Chamber pressure in atmospheres. 


Each A-table is programmatically produced (see Appendix A) from the two magnetic data tapes 
obtained during the experimental run. Accordingly, A-tables are produced for all the runs in each set. 
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STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


B-Tables 
Tables 2B to 20B, called B-tables, present the pressurant mole fraction histories as inferred from 
the J-location temperature histories from the A-tables. The basis of this data reduction program (see 


Appendix B) is the transient thermodynamic analysis by Corlett et al. (2]. Reference 5 gives this 
analysis in more detail. 


In addition to pressurant concentrations at each /-location corresponding to those in the matching 
A-tables, values of the mean pressurant concentration X are given. These values represent theoretical 
perfect mixing; they are determined from the known amount of resident gas initially in the chamber 
and the estimated amount of pressurant gas injected during any given time interval. Further, in the 
first six columns of the table, variables are given, respectively, as follows: 

(1) time rin seconds, 

(2) mean temperature of chamber contents 7 in °C, 
(3) mean temperature of resident air T, in °C, 

(4) mean temperature of pressurant gas 7, in °C, 


(5) dimensionless parameter-characterizing molar heat-transfer coefficient 8B, and 


(6) the ratio B/@, where @ is a characteristic time in seconds. 
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C-Tables 

hese tables give mean values for replicate 
with two exceptions: Dimensionless time 
been extrapolated to 


Each of the four sets of experiments has a C-table. T 
runs in each set. Otherwise, they are similar to the B-tables, 
f the table, and all values in the table have 


r is added in the last column 0 
correspond to equal 7-increments of 0.05 (see Appendix C for program). 
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D-Tables 


The D-tables give the standard-deviation history of each local mean pressurant mole fraction, 
according to experimental set, for values of dimensionless time 7 from 0.00 to 2.45 (see Appendix C 
for program). Each experimental set is treated in a separate D-table. 


i EE Eee 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


Set 1, Table D — Standard Deviation of Mean Local Pressurant 
Fractions, Scaling Runs 230-236 


LOCATIONS 1 

t 2 3 4 3 6 ? & $ 10 it 12 13 TAU 
@.000 06.006 6.000 6.000 0.000 6.000 9.000 0.000 0.000 0.000 6.000 9.000 0.000 0.00 
.a7t) 160) 058) 098) 157) «614200 «6.20320: «08S 100) «£1330 096) «872 198) = 85 
.905  .29727 096) «©.184 «=.290) «©.264 «8.384 ©1358 193 .248 181 .318 .253 10 
-3800« «62280 688) «155 288) 2195) 294) £118 «6169 187 1 14P 24K 187 18 
22700 «6.17200 «60780 £1250 164) 62420 2835) 2078) £132) 6188) «8G «18 194) = 20 
-162 120 076) «6.096 ) «= .114 0 097) «1430 056) «1000 828 094) 129 (41S) 88 
-992  .004 (075 .072 082 .069 (107 .064 .078 .095 .084 084 091 .30 
-604 .072) 1.087? 058 8.075.061 «100 «2.0600 «072 084) 067) 069) OBt GS 
-072 071) 1040) 1047) «=.065)— 053) 094) «20640 064) «20750: «(O51 08H) 072) 48 
-063) .069 6.032 0642) «057 049) «6.088 =«.058 =8=.059) 072) 0400 = 08T 064 4S 
-034 .061 .024 .039 035 .956 065 .049 053 071 .035 .048 .063 50 
-@32) .0352 .020 0 «£037 «6.0550 058) 079) «O4t) 056) «0650 «032 «—OSe@) «6.067 SS 
-050 .038 .Of3 .027 (046 030 .063 .032 038 .064 .639 O56 .056 60 
-043° 028) «.014) «©.02% 0 «=.036) «6.044 «=—.060 0) «=.036 =.032) «0620 047?) =—069) 042 OS 
-638 .023) .O13) 1.019) «4.0395 «6.0420 «O68 = =«.0230 O32) = 2.032) 040) 058) «6032 «(20 
-@35) .016) «©«.012 0 «©6014 = «=.0300 «6.0350 0620 «024 )2=«=«.032) (O47) «8.028 «054 .0400~—(CO7S 
-@32 014) ©0280 ©0130 «0330 6028) «60570 «0250 6038) «2.044: «6023 (649) 04k 80 
-@36 6.014 .O13 9 .013 .0629 .023) «6.056 0 =.033) 044 )=«=.045)0 028) «36046 «6.033 (4S 
-026 .026 .018 .621 .027 .038@ .057 .031 .044 .097 (033 .066 .030 906 
’ -032  .0235 .017 .021 .029 .027 .054 .030 .03% .052 .029 051 .040 .95 
-@23) 022) .024 = «=©.021 0 «4.024 «=.022)0 043) «028° 03S) «6046 03 044 2043 
-028 .016 .014 .013  .019 .017 (049 .029 .034 .044 (O21 043 .048 
-036 .020 .016 .O18 .Of7 .024 1.043 .028 .030 090 028 045 090 
-033° 029 015) «66830 016) «6.6280 O51 Ok) «8.030 «=—.043) 032) «652 «(048 
-@26 .020 .034 O11 1021 .031 055 .035 1032 .640 03% 043 (052 
021 .02@ 60200 = «=«.022) 024) «6034 «=.049) «6027 )«=.032) 042) 033) «O54 O80 
. 028 .O23) .017 .022 .030 .033 .054 .037 .936 O31 .029 055 0498 
-033) .029 .017 .022) 028) «=.032) «059 ) «=.035) 038) =.033)0 6032) OSS 048 
428) «©.0235° 013) «60200 «0250027 O51) 026) «038 «260833 038) =2043) 082 
O31) 022) 6092) «013° «O24 «.0250:—(OS4) «098 «039° 04S) «029° (842 O83 
-@27) 019 .010 040) «60250 6027) 048) «6.0210 «0240 «0420 (037) 049) O58 
-033° .020 .008 .012 018 .026 .042 .026 041 .047 (026 034 082 
-@32 016 «6.0160 «6.013500 «0170 «=. 0280 049) 6.028 )=«=—.036)=—6099) = 0300 «047? 052 
-@32  .022 0 .020 0 «.022) «024 ) «=.031) 081). O3L) «=«.036) «6098 =—03t 089) 048 
-@26 .02@ .019 .026 .032 .030 .037 .036 042 .034 (032 946 .046 
-430 .023 .013 022 .630 .036@ .034 .030 .046 .0357 .033 .043 952 
-368 «63620 «635300 61 369) 2382) 344 345) 943) 338) 1383) 342) 342 


(2 AD AD BD AD AD AD AD AD AD oe eee mt ee ete mee me ne me me me et ee ee 
= 
2 


| -969 = .363) 633300 6.362) 369) «6.9820 34S) 3420 2942) 398) 939) 344 2342 6s 
-319 «652600 «650500 «6.52000 «65280 (S41 481 480) 478) 472 479 48P 48 
0.060 6.000 0.000 9.000 0.000 9.000 9.000 0.000 06.000 0.000 6.060 9.000 6.000 98 
@.000 9.000 0.000 0.600 0.060 6.000 9.000 0.000 6.000 0.000 6.000 0.000 0.000 o0 
0.000 6.006 0.000 06.600 9.000 6.006 0.000 0.000 0.000 0.000 0.000 0.000 0.000 as 
" @.000 0.006 0.000 0.600 0.000 0.000 9.000 0.000 0.600 6.000 0.000 0.000 0.900 10 
0.000 0.008 0.000 0.000 0.000 0.000 0.000 6.9000 0.000 0.000 @.600 0.000 0.000 15 
4.000 0.000 0.000 0.000°0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 20 
0.600 0.000 0.000 0.000 90.000 0.600 0.000 6.000 9.000 0.000 0.000 90.000 0.000 23 
@.000 0.000 9.000 6.000 0.000 6.600 0.000 6.5600 0.000 0.000 @.000 0.006 6.000 30 
@.000 6.0080 0.000 0.606 0.000 6.000 0.000 6.000 9.600 0.000 6.000 0.000 9,000 35 
@.000 0.006 0.000 0.000 0.000 6.000 0.000 0.000 0.000 0.000 0.000 0.000 0.006 40 
@.000 0.000 0.0900 0.006 0.900 ¢.000 0.000 0.000 6.000 0.000 9.000 0.000 0.000 43 
$2 
x \ roe ‘ =- ee” ee F 


rt 2 2 4 5 6 ? e 9 16 
0.000 0.000 6.000 0.000 0.000 €.000 0.000 6.000 0.000 0.000 0. 
202 .0S% .33¢4 (047 162 .175 .027 .001 .683 .043 
093 .591 .033 .200 .303 .09¢ 137 145 076 
091 .945 .079 .255 .276 0649 (169 1122 068 
006 .479 (653 23 .254 048 (080 .093 939 
002 .421  .035 .211 .234 048 .060 071 .026 
O76 .322 .026 191 .209 .050 .047 .@85 .617 
.062 .339 (028 172 .180 043 .043 .050 024 
.072  .307  .@33 152 .156 .030 .039 041 .036 
006 .203 .¢43 139 .152 038 .040 (029 .039 
051.223 .044 137 .180 (026 .046 018 .023 
020 .263 .652 .139 .147 .025 .090 .02@ O11 
032 .244 .066 £25 .130 .025 .037 .039 .017 
034 (232 .036 .110 .119 .023 .034 .044 (024 
.O21 1.226 .@14 .109 .116 020 .045 (043 016 
O19 .239 1.010 105 .090 023 .038 .¢36 .021 
.0335 .248 .e2% .0@8 .087 .021 .074 064 021 
042 .221 1.032 .066 .099 .036 .050 .041 .024 
024 .217 .034 101 1.096 .028 031 1942 .023 
O33 .200 .014 .000 .099 025 .030 .025 .008 
080 .3135 .073 .072 .084 018 .036 .666 057 
936 .157 1.033 O71 .073 .023 .030 .034 .04@8 
O10) 1144 1.024) 068) «072 «025 006) =. 02101 
022.296 .0f3  .060 .067 .019 .016 .021 .020 
O31 .2597 .015 .048 .068 .009 .02§ .028 .019 
.02@ .855) .010 .05@ .0700 0 .029) 08?) «016 
.O19 .457 .012 .098 .063 .02@ .019 .027 021 
O18 1199 .012 1.062 .060 028 .022 .et8 012 
O24 .168 .@f2 .067 .@72 .024 .627 .020 012 
020 .174 .014 .073 .072 .927 .025 .016 012 
025 .160 .010 .067 .075 .023 .027 .008 .015 
021 .167 015 .064 .069 .020 .040 014 .083 
022.125 .025 .064 .073 .013 .034 .61@ = ©.007 
494 .471 1.504 $67 .578 470 .5@2 1.476 1464 
493 .465 .496 .564 1.580 .46@ .500 .474 462 
| 429 .202 .426 .509 .531 .397 .452 .409 .386 
.430 6.279 420) «S110 53100 «3930 448) 42.382 
: 0.008 6.000 0.000 0.000 0.000 0.000 0.000 6.000 0.000 
| @.008 6.000 0.000 0.000 0.000 0.000 0.000 0.9606 6.000 
0.000 0.000 0.006 0.000 6.600 0.006 0.000 0.000 0.000 
0.908 6.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 
0.000 0.000 6.000 0.000 €.000 0.000 0.000 0.600 0.000 
0.000 6.000 0.000 0.000 @.000 0.000 ¢.000 0.000 0.000 
0.008 €.000 0.000 0.000 @.000 0.000 0.000 0.000 0.000 
: 0.000 @.000 0.006 0.000 6.000 0.000 6.060 0.406 0.900 
: 0.008 0.000 0.00¢ 6.060 0.000 0.000 6.000 0.000 0.000 
@.006 €.000 6.008 0.000 0.000 6.000 0.0800 0.000 0.000 
| 0.008 09.000 0.000 0.000 6.0060 0.000 @.000 0.000 0.000 
0.000 0.000 6.006 0.000 0.000 0.000 0.000 0.000 0.000 
@.00@ 0.000 6.000 0.000 6.000 0.000 0.000 6.000 0.000 
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Set 2, Table D — Standard Deviation of Mean Local Pressurant 


Fractions, Scaling Runs 237-240 


LOCATIONS 1 


ii 


000 6. 
.034 
. 466 
069 
067 
.089 
.033 
074 
.093 
- 162 
.935 
.043 
.054 
. 058 
.¢48 
052 
O82 
043 
047 
.033 
O21 
. 038 
-043 
.029 
033 
. 936 
04? 
-043 
049 
036 
.039 
-040 
-637 
.4355 
464 
. 364 
. 360 
. 000 
. 000 
- 000 
. 000 
.000 
. 000 
- 606 
000 
. 000 
- 000 
- 000 
000 
- 600 


eoeoeoeocdedceo0aeodeo 


12 


000 6. 
474 
622 
.693 
334 
446 
.373 
377 
.374 
.364 
-342 
.330 
296 
261 
279 
.281 
269 
246 
-233 
214 
-134 
104 
.l?7a 
A99 
875 
175 
152 
.170 
7a 
17? 
-162 
.182 
196 
483 
-481 
-404 
423 
.000 
006 
.000 
-000 
.000 
000 
- 000 
000 
.000 
000 
006 
-000 
-000 


cae 


eeeaeeae @aocecdcao 


43 TAU 
000 0.00 
078 1.905 
149 1106 
-492 15 
14600 «620 
1420.28 
-134 = .30 
422° 35 
120° 40 
-128 .43 
4137) 630 
-1330°«35 
-145 160 
-134¢ «.63 
2420 220 
-007 175 
.087) «146 
-062 .45 
-O01 90 
-062 195 
-08t t.@0 
-421° 1.05 
-063 4.10 
063 1.15 
965 2.20 
O41 1.25 
.049 1.90 
033 1.935 
036 1.40 
-O91 1.45 
.040 1.50 
082 1.55 
-O5f 2.60 
490 1.65 
439 1.70 
394 1.275 
-349 1.60 
000 1.65 
000 £.90 
000 4.95 
-000 2.00 
-000 2.05 
-000 2.10 
-660 2.15 
000 2.20 
000 2.25 
-000 2.30 
000 2.35 
-000 2.40 
000 2.45 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


Set 3, Table D — Standard Deviation of Mean Local Pressurant 
Fractions, Scaling Runs 241-244 


COcaTIONS 1 
i 2 y 4 5 6 ? ST] 9 10 it 12 13 rau 
0.000 9.00¢ 6.600 6.9000 0.000 0.606 9.000 0.900 06.009 0.000 @.000 0.000 €.000 6.00 
-461  .297) .655  .232 .409 .319 .£71 ©2160 (407 .496 ©2894 1.3035 .176 05 


2.345 2.254 1.930 1.717 2.446 3.016 1.969 1.949 1.975 £.990 28.428 2.492 1.9860 (10 
2.737 2.643 2.292 2.6313 2.895 3.324 2.316 2.308 2.294 2.330 1.496 2.940 2.339 (15 
1.457 £2,322 2.268 1.266 1.346 3.313 1.769 1.004 .718 1.425 .719 §.347 1.006 20 
1.243 £.133 28.090 2.097 13.175 31.215 2.338 .074 .364 1.159 624 1.267 905 25 


14400 .£3@ 86300 2238 0 61397) 1.202) «271 6098) «6015 =—.063) «6089 «294 «182 90 
-006 (114 .118 (082 .£60 .203 0 1.033) 0 «.065)0« «©0820 =«=«.085) 14 6477) «10820 IS 
.949 .036 O17 014 O22 .026 1063 .078 .041 938 .936 097 .036 140 
.082 .951 .039 (031 O22 .032 0 4.051) =. 06t = =.951)0 03S) 061) 039) «6058 48 
-059 .016 .028 .042 045 .016 .O16 .039 .¢39 .025 .038 (059 .045 .90 
-047) .O341 1043) £642) .043 1.027) «1.0270 1050) .0k4) G07) =. 026 082) 048 SS 
-O17) 024 .036 0 «=.0235)0— (O1L) =. 0435) 052) «024 = «035 = 018 026) =044 044 60 
-040 «© .02@ ) «=©=.031 © «=©=.0370 «039 «60230 —095) 062) 012) O24) 0400) «O38 093) 
-029 .040 .020 (032 040 .007 .092 .079 O41 ©9028 .025 049 .0235 70 
-9036 .037 .044 (043 .O31 1047 (040 .026 027 .044 .043 £069 925 = «2.75 
-O31 .029 1.019 .034 «1.047 8.024) =.020 0 «©0200 «66260 047) =.037) 028) 048) 0 
-@36 .032 .095 .643 O44 .040 .618 .040 (046 .038 .649 .045 .048 85 
-054 .026 .020 .022 .039 .043 018 .038 .026 .014 .018 .03@ .010 906 
-O21 .021 .O9L 1.024 1.049 .063 038 .039 .031 .018 922 O76 .037 498 
1 -029° .024 .020 .016 .025 045 .049 .970 .032 .098 .027 1.044 .047 
-0219 £022 .O21 .007 .008 1.018 025 1.047 8.029) 6.016) «6024 023 030 
-027 1.009 .019 .087 1.0613 1.084 1019 .090 O18 035 .029 024 009 
-003  .008 .017 .006 010 .006 8.027 4.042) «©.G41)0 «2.0240 «6014 «36088 «012 
-O16 .016 .008 1.018 (022 .022 028 «8.044 8.032 .028 .035 037 .017 
-010  .006 .017 1.034 .032 .028 .044 .027 .036 047 .029 088 .024 
022 .O11 .020 .6386 043 .039 .038 .024 .068 .045 .044 030 .017 
027) 026 0317) 032 «033° «038 =«=.023) 6090) «OS 060) «= 0620 019) 033 
039.034 .020 0 .019 = .019 028) «=.027) 026) 037.034) «1034 «6038 043 
030.017 .020 .629 = .036 .020 O21 .028 021 0625 .036 .034 .058 
-048 = =.026 .024 «=.0235 0 «018 «=«.018 = =042 0 O21 026 O32 .05¢ 0323 .083 
423) 082 1009) 018 O23) .018 .024 .033 044 .046 028 066 .038 
O13 O15 1012) 1038 024 = .023 029° 1.0400 «6.05200 028) O31) 051 042 
-@43500 007) 1.007) £092) £022) 027) =—.030) 1013) 1029 029° .029° 4.032 = .087 
020 014 .012 .@22 027 .019 008 (019 (042 (016 (04% (038 .052 
-O10 0135 030 1.0613 006 O22 (O16 .028 .033 .009 .009 1084 .063 
-500 .50$ .506 .50@ Sei .303 502 .502 .302 .494 (4869 (508 Sot 
-499 502.502 .507 .495) 1.499) 6495) 6.495) 495) 507) 501) 532) 495 
.497) 508) 6.503) 509) 6497) 6499) 499) «4930 24930 «OS «505 836 493 
-430 0 4300 6435) 438) 6437) «64420 «643200 «649200 «4320 4320 «4520 482 432 


AD AD ADA A A AAD AD AD om be we me me ee me me te ee ee me me me om te oe 
= 
o 


9.000 0.000 0.000 0 900 0.000 0.000 9.000 0.000 0.000 6 000 6.000 0.0600 6.000 90 
0.900 0.000 0.000 6.000 0 000 6.000 0.000 0.000 6 000 90 000 6.000 9.000 6.060 os 
9.000 0.008 0.000 9.000 9.000 6.000 6.000 9.900 0.000 0.000 6.000 0.600 0.000 1¢ 
@.000 6.006 €.660 6.000 0.000 0.900 06.000 0.000 0.000 0.000 6.000 0.0606 6.0006 is 
0.000 6.006 0.000 6.600 9.600 0.000 0.000 0.600 0.000 0.000 0.000 0.000 0.000 20 
0.000 6.000 9.000 06.000 0.600 0.000 6.000 0.000 0.000 6.000 6.000 0.000 0.000 25 
0.000 ©€.000 0.000 6.406 6.000 6.000 6.000 0.000 0.000 0.000 6.000 0.000 0.000 70 
@.000 6.0040 9.000 06.000 6.900 6.000 6.000 6.060 0.000 0.000 0.000 6.000 0.006 33 
0.000 0.900 0.000 06.000 0.000 6.0600 0.000 0.000 9.6060 0.000 6.000 0.000 6.000 40 
9.000 9.000 0.000 06.000 9.000 0.000 0.600 0.000 6.660 9.900 0.000 0.000 0.000 4s 
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Set 4, Table D — Standard Deviation of Mean Local Pressurant 
Fractions, Scaling Runs 245-248 


LOCATIONS I 

t 2 q 4 3 6 7? $ 3 10 tt 12 13 TAU 
0.000 9.006 90.000 9.9606 6.600 0.9000 0.600 6.600 9.000 0.000 0 000 0.000 9 000 0 00 
.251  «.15¢ 202 132 4.158) 1.195) £56) 695k) 2158) «2.285 122) (KS 164 OS 
-257 .955 .655 (621 (926 1.127 1.409 936 .592 845 .449 894 (716 10 
.208 3.014 3.441 2 905 4 132 3.690 5.4683 3.676 2.161 1.515 1.534 3.841 2.452 15 
91212.64329. 74795 07413.69820 26313.954 7 671 3.018 9.966214 .006 8.762 20 
.499 5.357 6.103 5 199 7 248 © 629 9 75i &. 699 3.762 2.535 2.503 6.714 4 174 25 

242.249 266 205 233 aaa 44> 282 B95 1028 104 323 267 REG 

-166 100 193 th2 tid a6? Que 183 ura O75 .061 .232 ©4219 35 

209 1402 062 8.036 072 1064 109% .126 .076 1.060 .082 .185 .190 40 

.097 .075 .003 .049 .060 .069 .096 .104 O41 1.059 .044 (106 421 45 

-080 .046 (062 .033 039 .044 .957 (068 .055 .063 .027 .040 043 80 

,045 «026 044 024 029 030 O70 O21 .@11 009 G42 4.032 G71 35 

040 1034 019° = .003 8.946 or?) 984 O69 .G31 O32 1.040 1065 .050 606 

-049 1.047 .015 (013 .029 .0335 .034 .964 .0@3¢@ 042 .060 014 .023 65 

020 «1.02200 «£046 )0« «044 0) «0260 6 0t6) 6022) 055) 857) 2.043) Od 07K OSE 20 

-032 .042 (042 1912 (027 926 .103  .093 .O12 .035 .047 10623 .0%6 75 

-@36 .932 .030 028 060 9494 079 cés 067 036 $2 020 020 89 

-045 (060 (062 .057 (037 .057 .073 OS1 8 .041 095 .031 .0631 1.058 45 

-021  .025 .040 (023 .023 .031 .105 .078 .038 .0486 023 .029 .038 90 

‘i .033° 032 .033) .019 .022 .024 .073 .097 .041 (022 (637 1054 .025 35 
.043 035 .030 .047 024 .020 046 (G51 G61 .083 (438 043° .060 

.033° 025) «6.924 ©) «6.0380 «6.027 «6028 030 012 004 8.008 907 O03 013 

.029 .024 (026 .Oft .O2% .020 .068 (018 .022 .023 030 .033 .019 

.032  .629 .037 (03% 032 .039 011.027 .040 8.042 8.035 033 024 

.038 (037 .027? .040 .038 .048 .025 .020 .045 .057 (038 040 028 

: .035° 031 .015 10338 .945 .043 1020 029° .083 = 1039 18 oat 1.034 
* -042 .927 Off (918 018 042 O23 .20 1915 1932 a14 O22 24 
-036 .O24 .010 .019 .020 .027 .025 .022 .915 015 .621 O31 .030 

-024 .022 .006 .019 900 .O25 .O627 G66 616 or7 0379 072 028 

-015 .038 617 (0186 (9020 .025 018 .029 .021 027 45 058 038 

O16 .Off .019 .921 1040 .028 03) O31 4} 04? 8.049 132 014 

.029 018 .031 1019 027 026 O20 035 aR 52a 060 029 O78 

-025 910 .042 (915 017 (O31 (612 1024 43°? 023 ois O31 OL 

O19 010 .016 .007 017 .021 1.017 .O2t .024 024 (019 036 .015 

O12 «.O11 O19 .012 006 .023 .O21 02: .027 (012 (025 052 035 

.489 (486 4at 6494 497 «654100 487) «495 487 6.508 6.479 Set 521 

409 445 407) 64270 427) 4460 42t 1450) 1482) 449 481 450 430 

: 444.422 6418) 64400 «64260 64330 414) 458) 454) 416) 414 454 416 
-489 1421 923 449 «6421. 432 $45 445 6445) «4.4050 405 445 414 


- 
A we use 
i 
ot 
- 
- 


PSR RD RAD DMD PL Pe Pa eee te eee eee ee ee eee ee 
wa 
2 


9.000 6.600 0 000 6 00% 4 O06 0 100 O 000 4 400 6.000 0 000 4 000 0 O08 9 HAG 95 
0.000 0.5906 9 4060 9.940 1 004 1 AOA A OUN A GAO G Buh A ONO 4 HH0 GO 64M A HAG Nis 
0.000 0 400 0 YOO 6.060 0 GUO a 060 |W GOM 8 GAG 6 NUE 0 GeO 4 O80 @G O00 a Ate ak 
0.000 @. 009 9.000 0.000 9.600 0.060 6.000 0.000 6.000 0.000 @ 064 4 O00 6.000 te 
0.400 9.4600 9 690 9.000 0 000 6.000 0.000 6.000 6.400 @.600 4.000 0.000 0 000 1s 
0.000 4.600 4 060 0.600 4 060 6.606 0.000 4.000 0.000 0.000 0 000 0.000 0 a0 2¢ 
6.6060 4.4040 9.400 9.000 0.000 0.600 0.000 9.000 0.00% 0.000 9.900 0 000 0.000 25 
@.000 0 000 0 090 6.000 ¢ 000 0 000 0 000 0.000 6.000 0.000 0 000 0 000 @ 000 36 
0.000 6.000 09. 900 6 0060 6 000 0 9060 0.000 A 000 6.000 0.000 9.000 0 000 0.000 358 
if 0.000 9.000 9 O00 0 040 8 190 A O60 4 BOO 4 100 © 900 0 000 0 O00 4.000 0 ann aa 
0.000 0 G00 a 0060 @ 000 0 O06 0 2600 6 GOO 8 Ono © O88 0 ONG 0 O06 O OOO a ant 45 
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E-Tables 


These tables give the local mean pressurant fraction deviations for dimensionless-time values 0.00 
to 2.45. By pressurant-fraction deviation, we mean the ratio of the difference between the local pres- 
surant and the mean pressurant fraction at time ¢ to the mean pressurant fraction at the time of valve 
closure, ¢ = ¢,. As in the D-tables, these values are given at equal intervais of dimensionless time 7 
(see Appendix C for program). 
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Set 1, Table E ~ Deviations of Mean Local Pressurant Fractions, 
Scaling Runs 230-236 


Locations 1 ‘ 

1 2 3 4 3 6 ? e b] 10 il 12 1a Tau 
@.400 0.006 0.000 0.000 6.000 6.000 9.000 @.060 0.000 06.000 €.00¢ 6.000 0.000 0.006 
-.278 -.165 -.003 -.667 -.175 -.170 1.222 1.067) 1.0310 6144) «60550 (47800137) 0S 
-.929 -.323 -.008 -.127 -.333 -.325) 6.423 6127) 1100 )0=«.277) £103) 6340) «626010 
-.456 -.264 -.033 -.12@ -.304 -.2893 .382 .118 .102 .26% .¢87 .306 .229 153 
-.343 -.227 -.062 -.117 -.238 -.193 .297 .132 .493 .217 .06€ .226 .169 .20 
-.227 -.168 -.090 -.107 -.170 -.102 .20@ .102 .083 .173 044 146 .109 128 
-.43@ -.822 -.£08 -.096 -.115 -.629 1335 104 .076 .837 1029 .078 061 130 
-.AN? © ANd ~ 110 - 687 -.096 -. 012 11150 2096) 1072) «124 036) «O56 044) 95 
7.9100 -.103 -.114 -.073 -.061 -.002 102 .088 .070 .105 ©9033 045 .033 .40 
-.@03 -.09¢ -.110 -.066 -.068 .900 066 0600 .¢66 086 .032 .037 .02¢ 48 
-.066 -.070 -.098 -.060 -.097 .012 .061 .061 .053 .068 926 .04¢ .028 30 
-.047°-.054 -.005 -.053 -.045 .@13 .039 .042 .043 .083 .923 .041 .O31 155 
-.027 -.038 -.067 -.043 -.027 .020 016 .622 .026 042 .019 .033 .G1f 60 
-.007? -.021 -.090 ~.026 -.007 (042 -.039 .O13 .012 .026 043 .024 ~.007 «3 
-.002 -.013 -.038 -.91¢@ .009 (088 -.0z2 (COB .010 .008 -.000 .004 -.016 70 

4 006 -.007 -.035 -.004 017 (061 -.922 .003 .607 .062 .002 .002 -.024 tk) 
-@16 003 -.039 -.006 °.017 .061 -.023 -.005 - 061 005 002 .004 -.030 a0 
-€26 «026 -.038 -.012 013 .089 -.02@ -. ce! .009 .007 .010 -.007 -.047 €s 
17.0060 -.623 -.@03  .019 .064 -.039 (908 -.403 -.065 .002 -.004 -.042 .90 
-@26 .011 -. O31 -.60@ O19 .066 -.026 .009 096 -.084 -.003 -.609 -.044 95 
-040 = .033.-.029 -.001 028 .669 -.023 -.0@3 .001 ~.O11 -.017 -.015 -.642 1.40 
-044 (027 -.023  .010 039 = .080 -.02? -.017 -.017 -.027 -.025 -.028 -.043 1.05 
+ 047 034-004 (O18 05% .082 -.032 -.018 -.019 -.034 ~.631 -.039 -.033 1.10 
040 = .031 .002 .020 054 6.088 -.023 -.022 -.022 -.034 -.039 -.04§ -.053 1.15 
-@60 .042 .007 ©0631 037 .086 -.032 -.023 - 632 -.046 ~.042 -.0535 -.030 1.20 
-060 .043) 08% 1028 1054 = =.087 -.033 -.029 -.630 -.048 -.040 -.051 -.049 1.25 
-061 .042 .010 .0286 048 .064 - 046 -.090 -.031 -.040 ~.044 -.042 -.041 1.30 
60 .039 .005 .026 .048 .081 -.042 -.028 -.G32 -.043 -.036 -.043 -.031 1.35 
-062 .041 .003 .6€24 030 .0896 -.034 -.025 -.039 -.O51 -.639 -.043 -.034 1.46 
439 039 .003 .023  .044 (681 ~.033 -.023 -.025 -.043 -.043 ~.038 -.041 1.45 
O33 032 -.0@2 .020 .040 §=.084 ~.029 -.019 -.6235 -.044 -. 039 ~.032 ~.034 1.30 
-@31 029 -.003 618 9040 (079 ~.032 -.013 -.023 -.042 -.032 ~.030 -.037 1.95 
047.026 -.006 .019 044 (060 ~.029 -.019 -.020 -.035 -.037 -.030 -.041 1.60 
.047 0629 -.0¢2 .@21 1048. ~ 022 -.013 -. G16 -.042 -.040 -.034 -.046 1.63 
-@30 031 -.003 .621 .O9¢0. . -.026 -.017 -.023 -.043 -.0463 - O31 ~.049 1.20 
-@35 031 -.002 .023 097 (097 ~.029 ~.022 -.033 -.030 -.040 -.036 -.047 £1.75 
G37) 021 --.000 1.028 = .040 «O72 -.021 ~.026 -. 026 -.034 -. 025 -.026 -.029 1.80 
-@38@ 025 002) .622 «1.099 = ©8072 - 026 -.026 -.028 -.037 -.032 -.021 -.028 1.85 
012 015) 6.006) «=.018) =.026 037 - OF -.096 -.617 -.023 -.017 -.010 -.017 1.90 
6.600 6.006 6.060 6.000 0.000 6.000 6.606 6.060 6.600 0.000 6.000 6.000 0.0060 1.95 
0.000 6.000 0.000 * 6066 0.000 6.000 6.006 6.000 6.000 0.000 6.000 6.600 6.000 2.00 
@.000 6.006 6.000 96 9.000 6.600 9.000 0.000 6.600 6.000 6.000 0.000 6.000 2.65 
@.000 0.006 0.000 9 0.900 0.000 0.9000 6.000 0.660 0.000 6.000 6.000 0.000 2.10 
@.000 6.906 90.0006 4.000 6.000 0.006 6.660 6.000 6.000 ¢€.000 6.000 0.000 2.15 
@.000 6.006 0.000 0. 9.000 6.600 @.066 6.000 0.000 0.000 0.000 06.000 6.000 2.20 
@.600 0.006 0.000 0.800 0.000 6.000 6.008 6.060 6.066 0.000 ¢.000 0.000 0.000 2.25 
@.000 6.0906 6.060 0.606 0.000 @.000 0.006 6.0060 0.000 0.000 €.000 9.006 6.000 2.30 
&.000 0.008 0.000 0.006 0.000 6.006 0.00 ¢.040 0.009 9.000 6.6000 9.006 6.000 2.35 
@.400 0.008 06.900 0.606 0.000 0.000 6.000 6.060 6.006 06.000 €.000 0.000 9.000 2.40 
0.000 0.006 6.040 6.400 6.000 2.000 9.008 6.000 0.000 0.000 6.000 6.000 0.000 2.45 
? CASES 
$7 
- ad Fh he 95 TEA Se ik mR wey a eC at a te A 
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Set 2, Table E — Deviations of Mean Local Pressurant Fractions, 
Scaling Runs 237-240 


LOCATIONS ¢ 


t 2 3 4 3 6 ? | $ 16 re te 

@.400 0.000 0.000 0.600 0.000 6.000 9.000 0.000 6.600 9.9600 6.000 0.000 @. 

-.305 -.095 (342 -.047 -.213 -.213 -.034 -.1335 -.145 -.079 -.616 644 

-.570 -.183 1.029 -.090 -.395 -.395 -.063 -.293 -.273 -.148 -.034 1.206 

7.949 -.194 2.083 +.103 ~ 384 -.376 -.082 -.252 -.273 - 862 -.063 1.22? 

-.496 -.194 (946 ~.114 +.333 -.336 -.098 -.237 -.260 -.166 -.095 1.216 

2.444 2.194 073 ~. 283 ~.989 -.2939 - 914 -. 216 -.241 - 165 -. 189 2.164 

7.405 - 19% (610 ~.482 ~.204 -.247 -.230 -.196 -.228 -.170 -.138 1.134 

7.406 -.105 ©7693 ~.107 -.260 -.214 -.154 -.194 -.238 -.197 -.132 1. ten 

7.399 -.172 1.775 -.108 -.237 -.18f -.£78 -.298 -.245 -.208 -.119 2.151 

7.303 -.143 ©7667 -.820 ~-.22f -.158 -.20f -.£94 -.257 -.226 -.097 1.166 

-.357 -.0@6 .7802 -.138 -.210 -.140 -.219 -.201 -.278 -.245 -.110 1.166 
-.333 -.049 796 - 1.247 ~.897 +. 225 -.238 -.209 -.271 -.283 -. 242 2.262 -. 
-.915 -.070 (812 -.138 -.166 -.103 -.240 -.202 -.270 -.254 -.157 2.1838 -. 
7.300 -.109 .823 -.135 -.143 -.086 -.234 -.194 -.274 - 261 -.187 F.817 -. 

-.205 -. 222 (018 -.1356 -.191 -.092 -.224 -.2060 -.266 -.263 -.150 1.085 

-.266 -. £28 863 -.276 -.163 -.110 -.196 ~.194 -.259 -.259 -.125 1.066 
7.245 -.431 .794 -.2188 - 184 -.2312 ~.169 -.171 -.233 -.249 -.090 1.044 - 
2.227 -.092 ©7635 -.186 -.856 -.063 -.179 ~.1893 -+.233 -.293 -.110 4.017 - 
-.818 -.102 ©7594 -.172 -. £26 -.049 -.200 -.198 ~.222 -.216 -.812 982 - 
-.9188 -.122 (717 -.167 - £106 -.664 ~. £60 ~. 196 -~.216 -.219 -.0868 934 - 
-.070 -.024 (342 -.100 - O64 -.038 -.14@ -. 115 ~.162 -.872 -.060 633 - 
. 023 -.021 -.009 -.066 013 .052 -. 066 -.033 ~.067 ~ 067 -.045 300 - 
061 -.011 -.041 -.630 (053 .094 -.059 -.017 ~.646 -.087 -.061 .181 - 
-076 -.003 -.058 -.019 (067 .1060 - O56 -.022 ~-.051 -.036 -.055 172 - 
-084 =.001 -.063 -.007 062 (110 - 061 -.016 ~.056 -.O71 -.075 867 - 
084 -.001 -.067 -.006 (082 (114 - O51 -.013 -.649 ~.064 - 066 139 - 
-0B8 - 003 -.0274 -.010 (074 1108 - 048 -.007 -.048 - O61 ~.067 152 - 
7 083 -.00@ -.062 -.018@ 070 (101 -.044 -.002 -.0632 - 687 -.072 144 - 
. 090 - 001 -.973 -.023 082 .109 -.057 -.014 -.043 - 097 -.070 139 - 
O91 003 -.067 -.009 080 (110 -.061 -.021 -.052 - 064 - 063 149 - 
-O9f -.004 -.080 - 014 677 th -.049 -.022 -.046 - 069 -.067 156 - 
098 =.00f -. 071 -.004 074 (411 - O61 -. O81 -.060 -.072 -.072 134 - 
093.001 -.064 .004 1.079 .106 - 053 .001 -.070 -.083 -.082 .16]3 - 
-074 -.001 -.052 .005 071 .081 - 029 (005 -.019 -.032 -.0412 -.013 - 
-080 -,003 -.057 .001 067 (0863 - 628 (003 -.G21 -.034 -.034 ~.028 - 
070 (004 -.081 .002 090 .063 -.044 (017 -.008 - O21 -.033 ~.016 - 
-069 .009 -.043 .003 052 .063 - 017 .0135 -.006 -.023 -.036 cot - 
@.000 90.000 4 000 9.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 9 
@.0600 9.000 6.000 6.000 0.000 9.000 0.000 0.000 6.000 6.000 9.000 0.000 0 
0.000 6.000 0.000 0.600 0.600 0.900 0.000 0.000 0.900 0.000 0.000 0.000 0 
0.000 06.000 9.000 6.606 0.000 0.000 0.000 0.000 0.000 0.000 0.000 6.000 9 
9.000 9.000 9.000 0.006 6.000 6.660 0,000 0.000 0.000 0.000 6.000 0.000 0 
@.000 6.000 9.000 0.000 6.900 0.006 9.000 0.000 0.000 9.000 0.000 0.0060 ¢ 
4.000 06.909 9 000 0.000 0.000 6.006 0.006 0.000 0.000 0.000 0.000 0.000 0 
, 0.000 6.000 0.000 0.000 0.000 6.000 0.006 0.600 6.600 6.000 9.000 0.000 6 
| 0.000 0.008 6.000 9.600 0.000 0.006 0.000 0.900 6.006 0.060 6.000 6. c0¢ 0 
i ©.000 0.600 6.000 9.606 0.000 4.000 0.000 0.000 0.000 0.600 6.5600 6.0040 0 
| @.000 9.000 0.000 0.000 9.000 0.000 0.000 0.000 0.000 0.000 6.000 06.006 6 
{ @.000 0.000 9.000 0.000 0.000 0.000 0.006 6.000 06.000 0.000 0.000 0.000 0 
@.099 9.008 0.000 0.000 9.000 6.000 0.9000 6.000 0.000 0.000 ¢.000 0.000 0 

4 CASES 


58 


12 TAU 
O00 0.00 
104° 03 
197 to 
200 115 
-187) .20 
177 228 
-163 30 
.14000 35 
-108 40 
066 145 
-025 .30 
006) «6.55 
e323). 60 
043 6s 
-O0t 70 
O62 75 
039 60 
.093 65 
- 167 90 
1470095 
023 1.00 
-006 1.065 
-063 1.10 
.068 1.15 
091 £.20 
097 £2.25 
O97 £130 
046 1.35 
008 1.40 
oes t 45 
-084 1.90 
000 1.35 
.087 1.60 
-948 1.65 
040 1.270 
.039 2.25 
042 £1.40 
000 1.45 
000 1.90 
000 1.998 
-000 2.00 
000 2.63 
000 2.10 
000 2.15 
000 2.20 
000 2.25 
-000 2.30 
000 2.35 
000 2.40 
.000 2.45 
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Set 3, Table E ~ Deviations of Mean Local Pressurant Fractions, 
Scaling Runs 241-244 


LOCATIONS 2% 
1 2 R] 4 b] 6 7 ] 3 {6 it (2 t2 TAU 


@.000 0.000 0.000 6.000 0.000 €.000 0.000 6.000 0.0600 ©0660 @€.000 6.000 6.000 0.00 

757) 485 -.065 1.214 «©3508 1.793 -.356 -.251 -.499 - 404 -.293 -.459 -.360 65 
71.062-1.799-1.735-1. 4866-2 0909-2.329 1.7035 1.763 £445 2.508 1.088 2.049 1.669 (10 
32.544-2.339-2. 000-1. 046-2 .3592-3.092 2.195 2.183 1.902 1.989 1.401 2.622 2.124 15 
91.407 -1 349-2. 251-18. 252-0 .472-1.540 1.671 1.162 8.780 2.392 ©7447 1.4699 8.859 20 
“1.635 -.925 -.073 -.@91-1.002-1.043 2.222 .816 .313 .887 .494 1.074 .760 25 


°.263 -.243 -.234 -.252 -.275 -.331 3320 2480 147) 174) 1250 402 88? 10 


=.110 -.153 -.447 -.167 -.106 -.211 094 113) 146) 1300 080) «272 «80? 
-.024 -.060 -.060 -.055 -.00¢ -.121 024 .027 1048 035 -.002 .104 .100 .40 
O18 -.004 ~.016 -.018 -.025 -.052 ~.024 -.011 - 611 013 -.042 102 062 45 
045 016 ~.006 -.033 -.029 -.027 -.065 -.016 -.004 -.006 -.027 104 040 .50 
022.019 -.003 -.008 006 006 - 098 -.045 -.012 -.017 -.029 119 044.55 
25° .021 008) «.017) 019.036 ~.138 -.074 -.001 -.027 -.032 098 042 60 
045.022 013 032 055.078 ~.201 -.001 -.021 -.021 -.042 090 1037 65 
-063 065 .051 1062 057 .OLL -.177 -.120 -.027 -.025 -.034 083 .016 .70 
.081 055) 043) 018 «015 O14 -. 182 -.141 -.012 013 -.028 099 1032.75 
076 064 .045 1023 044 1024 -.212 -.153 -.000 -.027 -.029 .11¢ .045 .@0 
056 .06@ .053 068 076 .065 -.230 -.144 -.039 -.031 -.045 076 038 85 
073.055.034.028 «007 -.006 -.223 -.107 004 -.003 007 083 .047 .90 
051 042 .026 .030 032 046 -.203 -.151 1003 - 009 - O11 099 085 95 
095 077 051 .069 077 078 -.171 -.166 -.018 ~ 042 -.054 018 -.016 1.00 
O71 084 033.023) 030.041 - 154 -.109 -.002 ~.014 -.017 044 -.003 1.05 
.028 012.014 017 «030.032 -.129 -.104 013 001 -.006 1059 1019 1.10 
024 013) 014 027 030.048 - LEO -. 101 -.001 004 .003 .059 -.003 1.15 
430.019 008 G21 027 1057 -.088 -.089 -.004 -.010 -.016 054 -.016 1.20 
033.02 019 .032 022.033 -.090 -.068 -.027 -.039 -.013 060 .001 1.25 
036.029.023.039 025.029 -.092 -.063 -.033 -.027 -.023 079 -.029 1.36 
040 .02@ 020° 922) 013) 025 -.083 -.026 -.029 - 021 -.029 .071 -.032 1.35 
034 026 .O1f .028 028 = .034 -.076 -.057 -.038 -.024 -.016 .074 -.030 1.40 
034 029 024 .038 «035 048 - 084 -.073 -.038 -.034 -.015 057 -.028 1.45 
035.029.024.033) 028) «047 - 069 -.033 -.057 -.034 -.011 1032 -.027 1.90 
O14 004 -.003 018 021 .027 -.032 -.022 -.048 -.043 003 074 -.020 1.585 
004 O19 002 622 004 016 -.041 -.027 -.052 -.014 -.002 093 -.028 1.60 
O10 011 -.003 016 003 .016 -.030 -.016 -.028 - 028 -.028 098 ~.028 1.65 
004 003 .003 O16 008 012 - 014 -.003 -. 028 -.024 -.016 080 ~.044 1.70 
607 006 -.007 .017 005 1017 -.022 -.010 -.008 -.008 -.008 058 -.049 1.75 
-.002 0037 004 006 -.001 001 000 .000 000 -.008 -.012 006 -.001 1.00 
-.003 002 0.000 008 -.007 -.003 -.007 -.007 -.007 005 -.001 030 -.007 1.85 
=.004 -.002 002 .007 -.004 -.003 -.005 -.009 -.009 003 .003 .034 -.009 1.90 
-.003 -.003 -.001 002 001 .003 -.002 -.002 -.002 -.002 -.002 010 ~.002 1.95 
0.000 9.000 0.000 0.000 0.000 9.000 0.000 0.009 0.00% 6.000 @.004 0.000 0.000 2.00 
0.000 0.000 0.000 6.000 0.000 6.000 0.000 0.000 0.000 0.000 ¢.000 0.006 9.000 2.05 
4.000 0.004 0.000 0.000 0.000 0.000 0.000 0.000 0.000 9.000 6.000 0.00¢ 9.000 2.10 
0.000 0.00€ 6.000 9.600 0.000 9.006 0.004 0.000 0.400 6.000 ¢.000 0.000 9.000 2.15 
0.000 0.000 0.000 0.400 0.000 8.000 0.000 0.000 0.000 0.000 @.000 0.000 0.000 2.20 
0.000 0.000 0.000 6.000 0.000 6.000 6.000 0.000 6.000 0.000 6.000 9.006 0.000 2.25 
4.000 0.000 6.000 0.400 0.000 .000 0.000 0.000 0.000 0.000 6.000 0.000 0.000 2.30 
0.000 0.000 0.000 0.006 9.000 6.000 0.000 0.000 0.006 0.000 6.000 0.000 9.000 2.35 
0.000 9.000 0.000 0.000 0.000 0.000 6.000 0.000 0.000 6.060 6.000 0.000 0.000 2.40 
; 0.000 9.000 0.000 0.000 0.000 6.000 0.000 0.000 0.000 0.000 6.000 0.000 0.000 2.45 
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Set 4, Table E — Deviations of Mean Local Pressurant Fractions, 
Scaling Runs 245-248 


LOCATIONS 1 
1 2 3 4 3 6 7 € 3 ¢@ it te a Yay 
0.000 6.000 6.900 0.000 9.000 6.600 6 -900 0.006 0.000 0.006 6.00¢ 0.000 6 40 
-€90 .512 (305 .304 .483 .606 ~- 349 -.389 - 413 -.3931 -.436 -.3979 05 
-687 .596 615 .343 544 1592 -. .562 -.498 -.530 -.134 -.308 -.450 10 
-.826 -.567 -.950 -.966-1.398-1.249 21.934 1.178 .528@ 043 .349 1.243 .389 15 
-2.755-2.087-4.6398-3.930-5 .712-5.172 ? 191 2.613 1.105 2.122 3.836 £.908 (2¢ 

2 3 


a 

~ 

a 
Oe ee 
N@w 1 to 


22.970-1.442-2.275-1.959-2 761-2. 558 $91 1.302 ©3573 $70 2.346 1920 25 
-.464 -.430 -.499 -.392 -.470 -.496 665 328 25000 «614500 (1760 839 407) 30 


2.256 -.209 -.292 -.221 -.253 -.235 .35¢0 .325 .123 .04t .034 .385 .208 35 
-.108 -.116 -.096 -.116 -.102 -.137 .195 .207 .048 .067 -.036 (231 .118 .40 
-.@17 -.028 -.069 -.077 -.137 -.@92 123 .128 -.@05 -.617 -.068 .120 (113 45 
-@20 -.009 -.068 -.061 -.069 -.037 .033 (057 .007 -.019 -.644 (41253 .053 .§50 
-932 0.000 -.004 -.019 -.007 ~ 087 - 048 -.063 -.035 -.023 198 070 33 
036 .025 .023) .017 (007 ~.497 -.098 -.655 -.633 -. 031 .t55 115. &o 
-079 .043 .051 -019 .023 ~-.2013 -.098 -.032 -.047 -.051 .097 .039 68 
-962 .059 .061 .065 .086 ~.257 -.171 -.060 -.061 -.018 412 .066 (70 
.998 .056 .053 066 (061 ~-.289 -.181 -.078 -.043 -.029 (093 (067 (78 
-104 (087 .078 071 -066 - 291 -.224 -.062 - 041 -.044 074 (0595 (80 
O71 .065 .093 £38 (132 -.326 -.215 -.07% -.043 -.004 046 .026 45 
-1220 .@@f «6.2000 «622200 ©2138 -.336 -.242 -.086 -.070 -.022 .061 -.003 90 
12500 .926 0 649300 127) 0 1231 -.272 -.230 - 084 -~.065 -.098 -.009 (017 98 
-120 .085 .092 .090 .130 ~.269 -.226 -.115 -.0@5 -.053 .044 .OSf 1.00 
.072 .058 .062 (067 .065 - 166 -.152 -.954 -.050 -. 016 O34 - 002 1.08 
046 £929 .032) 040 044 ~ 107 - 123 -.026 -.020 -.022 .037 .0069 1.10 ! 
O33 .027 .617 .628 .049 -.096 -.096 -.014 -.027 -.021 .055 -.003 1.15 
041.038 .050 045 .065 -.100 -.693 -.035 -.061 -.0637 (068 -.026 1.26 
-050 .036 .063 (037 O71 -.107 -.099 - 050 - 066 -.043 056 -.016 1.25 
O33) .03t = 1.057) «6.0439 1076 -.112 -.104 -. 044-1047 -.017 (055 -.013 1.30 
-928  .019 .639 «=.043) 048 ~ 095 -.071 -.638 -.038 -.023  .098 -.019 1.35 
020 002 .020 619 .023 -.055 -.056 -.046 -.034 -. G12 687 O61 1.40 
.O28@ .032 .022 .007 .031 -.063 -.033 -.041 ~. O51 -.018 (096 - 017 1.45 
O14 £009 .026 017) ©9031 -.033 -.033 -.052 ~.048 -. O15 .069 -.016 1.90 
-O13  .002  .022) .028 ©9037 + .027? -.G4t -. 056 ~.035 -.025 (083 -.027 1.55 
: ~.003 -.012 .013 023 .052 -.039 -.027 -.035 ~.025 -.026 .062 -.011 1.60 
°. -.013 -.023) .002 .022 .052 -.039 -.027 -.026 -.026 -.026 .099 .012 1.65 
“. -.014 -.037 -.@08 .009 (642 -.029 -.029 -.028 -.010 -.017 088 .043 1.70 
-. ~.011 -.016 ~.002 6.0600 (014 - O11 -.003 - O11 (O11 -. 018 (024 (024 1.75 
- ~.000 -.612 -.002 ~- O0f (010 -. 010 042 -.909 012 -. 010 (012 .012 2.86 
= ~.004 - 006 .007 -. 002 .003 -.068 .014 014 ~.007 -.008 (014 -.007 4.65 
-.004 -.002 .012 -.004 .062 009 .009 (009 ~.014 -.014 .009 -.008 1.90 
4. ©.000 6 000 96.9600 0 006 0 000 0.000 @ 000 6.000 6.000 0.000 6.000 0.000 1.495 
q. 0.000 0.000 0.000 9 000 6.900 0 000 0 000 6.000 0.000 9 000 0 000 0.000 2.96 
¢. 0.000 @.000 0.000 0.000 6.000 0.9000 6.000 6.006 0.000 6.9000 0.000 9.000 2.05 
¢. 0.006 0.000 0.000 0.000 9.000 0.000 0.000 0.000 0.000 6.000 0.000 0.000 2.10 
¢. © .00@ 0.000 0.400 0.000 €.000 0.606 6.000 0.000 0.000 9.000 06.000 0.000 2.15 
¢. 0.000 0.000 06.000 0.000 6.000 0.006 0.96900 06.000 6.000 0.0600 0.000 6.000 2.26 
6. 0.000 0.000 0.000 0.000 € 000 6.000 0.000 06.000 0.900 ¢.000 0.000 0.000 2.28 
é. 0.000 0.000 6.000 0.6000 0. 000 0.000 0.000 0.000 0.000 6.9000 06.9000 0.000 2.30 
é. @.906 6.000 0.600 0.000 0 600 6. 00¢ 6.040 0.600 0.000 ¢.000 0.000 0.000 2.35 
6. 0.900 0.000 06.000 6.000 6.000 6.000 €.000 0.000 0.000 0.000 0.000 0.000 2.40 
@. @.000 0.000 0.000 0.000 @€.000 06.000 0.000 0.400 6.000 0.000 0.000 0.000 2.45 
; 4 CASES 
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DISCUSSION 


For convenience of discussion, we have plotted in Figs. 6 through 9 typical data from the four 
sets of experiments described in Table 1. Mean local pressurant fractions for selected / locations, X, 
are plotted vs dimensionless times r. From scale-modeling considerations [2], values of + are defined 
for the pressurization period as follows: 


t= X/X. (t <4) 


and 
r—-l=(-1)/6, >), 


where {, is the time of valve closure, X = X, when ¢ = ¢,, and 
6.=— [In (1—X)/ar]4,. 


Typical error bars are given in Figs. 6 to 9 for / location number 8; they show +1 standard devia- 
tion. In general, these data are statistically meaningless for low values of 7, below 0.5 or 0.6. We attri- 
bute this condition at the beginning of each experimental run to the time required for control valves to 
open (about 2 s) and for flows to become quasi-steady. The analysis that infei3 local pressurant history 
from measured local temperature history, called the thermal method [2], assumes quasi-steady flow 
conditions. Response times for the bare-wire thermocouples, 0.1 mm in diameter, are conservatively 
0.2 s or less; bead diameters are 2 to 2.5 times the wire diameter. Thus, these results represent 
engineering approximations, average values that show no turbulent structure. Even so, the data imply 
that the gases mix rapidly and that no pockets with large excesses of oxygen or nitrogen gas exist for 
any appreciable time period. 


In Fig. 6, we show typical local mean pressurant mole fractions at three /-locations for experimen- 
tal set 1, which had seven replicate runs. The solid line represents perfect mixing; at r = 1.0, ¢ = ¢,. 
With pressurant delivered from three 32.79-mm nozzles at Mach-1 velocities, mixing is almost instan- 
taneous when there are no flow obstacles. These /-locations are off center, 0.6 of the distance to the 


LOCAL MEAN PRESSURANT CONCENTRATION, X, 
9° ° 
w a 


° 
» 


° 
x 


© - IT LOCATION NO. 6 
O - T LOCATION NO. 2 
&- I LOCATION NO. 6 


° 


0 0.2 0.4 06 08 1.0 12 
DIMENSIONLESS TIME, rf 


Fig. 6 — Local mean pressurant concentration (mole fraction) vs dimensionless time 
for three / locations of experimental set 1, off-center thermocouple-array position | 
with three nozzles and no flow obstacle 
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af 


© - It LOCATION NO. 6 
GO - I LOCATION NO. 2 
& - I LOCATION NO. 8 


LOCAL MEAN PRESSURANT CONCENTRATION 


ie) 0.2 0.4 0.6 8 10 1.2 1.4 1.6 
DIMENSIONLESS TIME, 


Fig. 7 — Local mean pressurant concentration (mole fraction) vs dimensioniess time 
for three / locations of experimental set 2, chamber-centerline thermocouple-array 
position 2, with three nozzles and no flow obstacte 


LOCAL MEAN PRESSURANT CONCENTRATION, Xy 


0.4 


9° 
a 


° 
i 


~ T LOCATION NO. 6 
- T LOCATION NO. 2 
- I LOCATION NO. 8 
~ T LOCATION NO. 9 
- I LOCATION NO. 7 


° 


9 0.2 0.4 0.6 0.8 5.0 12 1.4 1.6 
DIMENSIONLESS TIME, r 


Fig. 83 — Local mean pressurant concentration (mole fraction) vs dimensionless time 
for five { locations of experimental set 3, centerline thermocouple-array position 2, 
with the south nozzle and flow obstacle, screen side facing west. 
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LOCAL MEAN PRESSURANT CONCENTRATION, X, 


0.4 


0.3 


9 
nN 


© - I LOCATION NO. 6 
0 - I LOCATION NO. 2 
4 - I LOCATION NO. 8 


° 


v7 - I LOCATION NO. 9 
© -— I LOCATION NO. 7 


1) 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 
DIMENSIONLESS TIME, T 


Fig. 9 — Local mean pressurant concentration (mole fraction) vs dimensionless time 
for five / locations of experimental set 4, centerline thermocouple-array position 2, j 
with the south nozzle and flow obstacle, screen side facing north. 


chamber wall. Figure 7 shows the same experimental conditions, but the /-locations are along the 
chamber centerline. Notice that mixing is less rapid here, and 1.2 injection times pass before complete 
mixing is indicated. These data represent set 2, which had four replicate runs. Although pressurant 
deficiences were small, they were statistically significant. These centerline /-locations were not beneath 
any of the three nozzles, where pressurant concentrations are high. : 

Experimental sets 3 and 4 were performed with a flow obstacle, Figs. 8 and 9, respectively, shew 
typical data for them. The obstacle was a cabinetlike enclosure with top, bottom, and three sides 
closed; the fourth side was covered with a screen wire. As the sketches in Figs. 8 and 9 show, /- 
locations 7 and 8 are inside the obstacle and /-location 9 is directly behind the obstacle (see Fig. 5), 
relative to the south-nozzle location. Pressurant was injected only from the south nozzle in sets 3 and 
4, thus giving the most severe conditions for mixing; injection times were about 30s, With the obsta- 
cle screen side facing west, Fig. 8 shows that pressurant is mixed inside and behind the obstacle within 
about 1.4 injection times. With the screen side facing north, Fig. 9 shows that these conditions are met 
in about 1.6 injection times. 
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APPENDIX A 


Programs BIGST and PRODF accept raw data tapes and produce the A-tables [6]. 


: 
| 
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OBIGST 1200004 IS GH CROGOES USING GOO75 BLKS R=0008 


0001 FING 
0002 Cr mmm c mmm rrr ert et tne mene were ese e nse anennne sane 
0003 PROGRAK BIGET 
oooa ¢ c 
aoos ¢ VERSION 800721--4 BY STEVE LUSTIG c 
ove ¢ c 
0007 C----- FUNCTIONS | ~-~--- se ee en nen ene en nme nee ween cena nC 
0008 ¢ 1) TO MAKE ASCII DISC FILES FROM ERCIDIC DaTA c 
000s LOGGER TAPES c 
0010 C 2) TO MAKE ASCII DISC FILES FROM ASCII OR c 
oor ¢ EBCIDSC NASTER TAPE c 
O12 C 3) TO BUILD ASCII MASTER TAPE FROM EBCIOIC c 
oa17 > 6C DATA LOGGER TAPES c 
0014 C 4) TO BUILO A ‘PROOM IHPUT TAPE’ FROM DISC FILES C 
OO1S C 5S) TO PRINT DISC FILES OM LINEPRINTER/TERMINAL c 
core C C 
0012 C----- MISCELLANEOUS : -~-~-~----- enn een ene ee ee ee eee c : 
0018 C€ 1) THIS PROGRAM & ITS SUBROUTINES CALL: c 
e018 ¢ c : 
0920 C 2) DATA LOGGERS WHICH THIS PROGRAM ACCOMODATES: ¢ 
0021 ¢ DORIC #220 (FIXED, EBCIDIC) c 
oo22 ¢ DORIC #220 (MOBILE, EBCIDIC) c 
0023 ~=6C DORIC #240 CHOATLE.ERCI NIC) Cc 
0024 C 3) THIS PROGRAN ASSUMES: c 
oc2s 6C¢ -MAXIMUM 20 CHANNELS /SCON Cc 
oo2¢ C 1 O€ CHANNEL 47S ¢ 100 > c 
0027 -TAPE ORIVES LUO & LU18 ARE AVAILABLE c 
oo2z8 ¢ ON REQUEST c 
0029 ¢ -WASTER TWPE CHARACTER SET I$ ASCIT c 
0030 C 4) HG FUNCTIGN IN THIS PROGRAM IS DEPENDENT c 
0031 ¢ OW THE USER’S RUNNING ANY PREVIGUS FUNCTION  C 
0032 ¢ DURING THE SHHE SCHEDULING OF THIS PROGRAN c 
Lt one wen e renee en ene ---€ 
0034 COMMON LUCS)/NANEC 3,20), WRMCHT ECR 20), 1PASTC 9), 1BUERC2 72), 
0035 #10C8( 2724. 1SCR(214) 
0036 INTECER BHO. IBLANKC 394), ANS 
0037 DATA IBLAKK/384e2H / 
9038 C 
0939 CC = samen enaee DETERMINE LUM OF THE DEYICE--~------- nen -ne nnn ial 
0040 CALL RMPARCLUD 
e081 £0) Hee eee eee ARRAY PAST ACCOUNTS VISITED TASKSG-----nnnn wenn nnn ene 
9062 DO 1 123.3 
9043 1 TPASTCT 920 
0044 NANCHT = 4 
0043 C0 -wnrnenee- DETERMINE TASK~-------=-- 2 n nn ene nn en nen en nen eee en ee 
0046 2 UPITECLH.S) 
| 0047 3 FORMATCSX “ENTER: 4 TO CREATE ASCII OSC FILE’ 
, 9048 #717X%,'°FRON ONE DATA LOGGER TAPE’ 
0049 4717%,°OR NASTER TAPE’ 
; 9950 4741851 TO CREATE HSCIY OTSC FILES FRON’ 
oost 4¢12%,'FROM 2 DATA LOGSER TAPES’ 
0052 */11¥,'2 TO CREATE A MASTER TAPE FROM DISC FILES’ 
0053 */11¥,'3 TO LIST DATA OH A PEADA TNPUT TAPE’ 
o034 4717%,70R OW A TERMTIHALCLINEPRINTER’ 
0953 *711%5°4 TO END PROGRAN’ } 
9936 REAOC LU, @ HODE 
0037 CO 10 €100,100,200,.300,400),NODE41 
ouse ¢ 
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eoss ¢ 
0060 100 IPASTCL)#1 
0061 C = -Heee- wen ee ere en en nec ee ceee es 4 
oo62 C FUNCTION! TO TRANSFER A FILE (EG. DATA) OF ANY RECORD C4 
0063 ¢ LENGTH FROM RT TO GNE OF THE PLATTERS (4 
0064 #C FORMAT: USER IS REQUIRED TO INPUT RECORD LENGTH € 
e06S 6C THIS FUNCTION USES OWLY AS MUCH SPACE AS FILE C 
oose C¢ REQUIRES. RETURHING THE REST BACK TO FRCR. c 
coe? ¢ SEMANTHUM OF 20 CHANNELS/SCAN!! (SOUNDS REASONABLE > ¢ 
0068 €------------ we te nn ne ene eee ene ene we een tee cw een ewe ew ene nn en nl 
0069 7? «ITAPE=HODES1 
oo7¢ C 
0071 ~6C¢ ; 
0072 IFCITAPE .€@. 1 }URITECLU, 15) : 
0073 IFCITAPE .£@.2.URITECLU, 16) 
0074 15 FORNATC NOUNT TRPE ON LUC ..... ENTER "t" WHEN READY’) : 
0075 16 FORNATC NOUNT TAPE WITH 1ST CHANNELS ON LU 8’. i 
0076 “t7°MOUNT TAPE WITH 280 CHANNELS OW LU IO’. : 
0077 2/°ENTER “1° WHEN READY’ ) \ 
0078 READC LU. * IANS 
0079 «6C¢ 
0080 C------ CHARACTERS/RECORD FOR BUFFER 
o0s1 C¢ 
0082 URITECLULIS> 
0082 35 FORMAT( ENTER ® OF CHANWELS PER SCAN’) 
0094 READ( LU. ® NOCHAN 
o08s HCHAR=( NOCHANS11%29) 
0086 WHORDS=CHCHAR4I )/2 
ous? 10C8S*#25¢ 
0089 WINTECEHOCHAN O46 
ovas ¢ 
0990 C----- -SKIP FILES 
ong1 ¢ 
0092 URITECLULL7) 
0093 1? FORMATC ENTER @ OF TAPE FILES 10 SKIP’) 
0094 READCLU. *NSKIP 
0095 IFCHSKIP GT. O)CALL SKIPCIANS, ITAPE, NUORDS) 
0096 6C 
0097 C------ FILE NAME 
0098 oC 
0099 URITECLUL20) 
0106 2a FORNHATC ENTER A DISC FILE NAME - 6 ASCII CHARS’) 
0101 WANCHT = NAMCNT * 1 
0102 READCLU. 36 CHAMEC TIL MAMCNT), TE2t,2) 
0103 30 FORNAT( 382) 
0104 URITECLU.40) 
0105 49 FORHATC ENTER PREFERRED CARTRIDGE (0 IF WO PREFERENCE)’ ) 
0106 READC LU, ¥ICECRCMANCHT)) 
0107 ¢ 
0108 #¢ DEFINE FILE PARAMETERS FOR EXCLUSIVE OFEN, STANDARD 
o109 Cc SEQUENTIAL ACCESS.UITH FILE TYPE DEFINED aT CREATION 
o1fo C COR DEFAULT 10 TYPE 3> 
o111 ¢ 
0112 ISIt2ZEs-1 
| 0113 TOPTH29 
9114 ITYPE = J 
01185 ISECU = 9 ' 
0116 ¢ 2 
O11? C------ CALL CREAT: CREATE DISC FILE USING INFO SUPPLIED BY USER ; 
o118 ¢ 
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o119 CALL CREATCIOCE,- TERR, MANEC LT , NARCHT)-ISIZE, 

o120 @ ITYPE,.TSECU, ICRCNANCHT ).1BC8S> 

o121 URITECLU,.2¢ TERR 

O122 21 FORMAT( /’COCREAT MESSAGE JER=’,16) 

0123 IFCTERR LT .OCALL ERRCIERR)D 

0124 ~«6¢ 

@125 C--~---CALL OPEN: EXCLUSIVE OPEH, VITH STANOARDSEQUENTIAL ACESS 
0126 ~«€6C SEARCH ALL CARTRIDGES FOR FILE. RETURNING SUCCESS OF CPREN 
o12?7 «6¢ TH IER 

0128 = «6C 

0129 CALL OPENCIDCS, IERR, HANEC 1, NANCHT), IOPTN, ISECU, ICRCHABCHT). 
0136 + 10C8S) 

O13t URITECLY,. 22, TERR 

0132 22 FORNATC 7’ COOPEN MESSAGE TER=’, 13) 

0133 IFCIERR LT. OVCALL ERR TERR) 

0134 ~«€C 

@135) C------ THIS LOOP WILL READ IN BATA FROM TAPE, 

0136 «#€C TRANSFER IT TQ THE DISC, AND TEST RECORD 

013? «C 

0138 TRHO = 0 

0139 ITPNO = @ 

o140 6¢ 

0161 C----- TYPE TAPE CHARACTER SET 

o142 C 

0143 ICHYRT#0 

0144 IF CITAPE.NE.1) GOTO 31 


0143 28 WRITECLU,29) . 
0146 29 FORHATC’ FOR SINGLE TAPE CHARACTER SET: ’ 


0147 472K, "EWTER °O’ FOR EBCIDIC * 

0148 #78K%,°° 4’ FOR ASCII®) 

0149 READCLU, * ICNYVRT 

0130 TECCICHYRT.WE.0) AND. CICHVRT WE. 1) )G0TO28 


0151 31 URITECLU, @6) 
0132 86 FORMATC’ e*VAIT FOR TAPE READ’) 


01353 ~C¢ 

o1s4 ¢ 

0135 00 97 LOOPH1,ITAPE 

0156 TFC LOOP .€@.2d0ITPNO=16 

O13? «6¢ 

O198 Conn enn nn ne nn- n= GET A RECORD GF SIZE IDCBS 

01359 ¢ 

0160 44 CALL EXECC1, 1TPNO, IBUFR,-NWORDS ) 
o161 ¢ 

0162 Cr -- meen nner nnn CHECK ITF END OF TAPE FILE 

o163 6C 

0164 CALL EXECCL3,1TPHO.ISTAT) 

0163 ISTAT = TANDC ISTAT, 402008) 

0166 IFCISTAT WE. 2008.60 T0 47 

0167 TFCITAPE .€0.1.0R LOOP. E@.2)960 TO 97 
0168 CALL URITECIDCR. TEAR. TBLANK, NUORDS) 
0169 Go 10 97 

o170 6¢ 

O171  Cen-seen---------CONVERT SCAN TO ASCII 

0172 «€C 

6173 4? IFC ICHYVRT WE .6) GOTO 32 

0174 CALL EBCASCIBUFR, NUORDS) 

0173) C-----n---~------CHECK IF RECORD IS A COGD ONE 

0176 «€6C 

0177 32 CALL CODEC HCHAR) 

0178 READCIBUFR,. 41 CISCRO J), Jel, NINTEG) 
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0179 CONTINUE 

0180 4t FORMATCLIN ZC ALL, URI, 20C]N,. VIL UN GILLEN) 

0181 OO 14 K=1,.NINTEG 

9102 Bad=t 

07:83 00 95 J20,9 

9184 IFCISCRCK) E@.J)BAD=06 

9105 a5 CONTINUE 

0186 ¢ IF BAD=1. THROW AVAY SCAN 

0187 IFC BAD. HWE.1> CO TO 14 

0188 VRITECLULS0O>¢ IBUFRCT J), Td21, RUORDS) 

0189 50 FORNAT( ’eoBAD INPUTeLINE BEING DISCARDED’.(*’ °,249A2)) 

0190 GO 10 44 

9191 14 CONTINUE 

9192 $C 

0197 ¢ 

9194 Cenc reer ee een ee URITE RECORD 10 OISC FILE 

0195 C 

9196 oe CALL URITFCIOCB-IERR,. IBUFR,NUORDS) 

0197 IFCIERR LY. 0) CALL ERRC TERR) 

0198 TRNO = IRNO * 1 

0199 GO 10 44 

0209 $7 CONTINUE 

0201 ¢ 

9462 C 

M202 C------ CALL LOCF: EXECUTION OF THE NEXT STATEMENTS RELEASES THE UNUSED 

0204 ¢ PORTION OF THE CR HELD BY THIS ROUTINE 

0203 =C 

9296 CALL LOCFCIOCB, TERR, IREC, IRB. LOFF,.JGEC) 

0207 WVRITECLUL,SBIIERR 

0208 98 FORMAT(C ’e*LOCF MESSAGE IER= *, 16) 

0209 IFCTERR LT .OCMLL ERR« TERR) 

0210 ITRUNESISEC/2-IRB-1 

9211 C 

9212 Cr----- CALL CLOSE: TRUNCATING THE UNUSED PORTION GF THE CR. 

9213 ~«2C 

0214 CALL CLOSECIS BR. TERR. ITRUND 

0215 URITECLU-6EdTeReR 

0216 66 FORNATC ‘s*CLOSE MESSAGE IER=°, 16) 

0217 IFCTERR.LT.OIJCALL ERRC TERR) 

0218 #C 

0219 WURITECLUL.6SIIRNO, CNHAMEC NH, NAMNCHT),NO1,3) 

6220 65 FORMATC’ se’, 16,’ RECORDS WRITTEN 10 FILE ‘.9A2) 

9221 C 

0222 WVRITECLU.70) 

9223 70) FORMAT(C’? TRANSFER ANOTHER FILE ? CYNN)D’?} 

0224 READC LU, 201 IANS 

0225 IFCTANS.EQ.AH¥9GO 16 7 

O226 ¢ 

0227 coto2 

9226 200 I1PASTC2921 

9229 Cer rm er ren nr nnn rr rr nr cnn crn eee eee nme ce mee ee en wcee c 

0230 ¢ OLD MASTR c 

9231 #C¢ THIS SECTION ALLOUS THE USER TO SAVE DISC c 
1332 ~¢6C FILES ONTQ A MASTER TAPE. THIS MASTER TAPE c 

ul33 oC Can LATER DE USED AS INPUT TO THIS PROCRAR. c 

9234 = =«¢ STS* FULT HEED HOT HAVE RELY PLRRATED DURING c 
238 ¢ 3 SCHEDULE GF BICST. MASTER TMPE RSSUMED ASCII c 
174 Hn ee ee wae ween ew BH eee Cc 
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92394 #¢ 
1249 WRITECLU, 3) 
024) " FOSMMT CTO TRANSFER DISC FILES MOUNT NASTER TAPE GW LUG’ 
242 + SUM. ‘WHO ENTER AN INTEGER WHEN READY’ > 
v2@ay READCLU, OT ANS 
0244 =#¢ 
g248 C¢ 
0246 DO 1061 Ta1,KANCHT 
0247 ~«6¢ 
9248 (C----- ~----PRONPT WITH NANES OF FILES CREATED SQ FAR 
g269 6¢ 
9250 WRITECLUL 11 CHAMEC TIL ID, TTet.33 
0251 1 FORMATC’ TRANSFER FILE ',3@2,° 2 CY¥SND) 
02352 READS LY. 2047 ANS 
9233 IFC ARS .EQ 1HN) GOTO 108 
O2354 #¢ 
0255 C--------~- TRANSFER THE I°TH FILE OW THE LIST 
o256 C¢ 
9257 CALL TRANSCID 
o2s@ Cc 
9239 1901 CONTINUE 
9260 C 
926% C 
: 9262 WRITECLU, 27) 
‘ 9263 27 FORMATC’XFER A PREVIQUS FILE? CY¥7N)°) 
0264 READCLU, 201 ANS 
9265 291 FORMATCAL) 
9266 Fr CANS. NE. THY) GOTO2 
Y267 oF 
9268 C----- TRAHGFER FILES CREATED PREVIOUSLY QUISITOE THIS SCHEOULE 
. 0269 #C FILO ARE ASSUMED ALL READY COITED & CONVERTED 
o270 = #¢ 


0271 23 WRITECLU. 13) 
9272 13 FORMATCIX. “WASTER TAPE SHOULD BE ON LU @’) 


9273 NAMCNTSNAWNCNT 41 
0274 WRETES LU, 24) 
275 a4 FORMATC ENTER FILE WAME--6 ASCIT CRARACTERS’ ) 
276 REwDe LU, TOPCMAMECT TE WAMCNT),TI81,3) 
9277 W2LTECLU, 25) 
9278 25 FORHNTC ENTER CARTRIDGE @’) 
92793 ROWOCLY, ic ICRC MAMONT DD 
289 WRITECLU. 26) 
9281 CALL TRANSCMARCHT) 
9282 24 TIDHATC) TRANSFER ANGTHER FILE? CY7R)’?) 
9283 ehaeGe LU. Cat ANS 
; 9234 if<ahG NE (HN) GOTO 29 
9203 C 
9296 
28? co 0 2 
9299 305 TPASTC3)a1 
U289 £20 esas ft SR at oe Se oy hee ee GR RR a Sea BR o--E 
g2% ¢ TUIS SECTION ALLOWS THE YSER TO MAKE A Cc 
. g291 ¢ PACHA THPUY THPE FROM CISC FILES CREATED Cc 
9292 ¢ AUTH PAST AND CURA? RUNS CF THE PROGRAM. c 
o2agy) oe THE USER wav TE TI THCR THRE ORIVES FOR OUTPUT. C 
0294 ~=«6C THE USER 4ae¥ wiiad STHPLY PRET THE CUTPUT ON c 
0293 C AWY TERMINAL OR PRINTER c 
9296 [ed od 6 
0297 WRITECLU. 4) 
9296 “ FOEMATC’ TO CREATE PRODA INPUT TAPE FROM DISC FILES: 
70 
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e238 @ 735K,‘NOUNT PROOA TAPE ON A TAPE DRIVE 8° 

0300 4 /SN.‘ ENTER THE LU® OF THE TAPE WHEN READY.’ 

o3e1 # 7EX,’'TO LIST THE OUTPUT ELSEUHERE:’ 

0302 + JSM.’ENTER THE LU MUNBER® SHEN REABY.’ > 

0303 READCLU. e )IGUTDY 

0304 ¢ 

0303 IFCCIPASTCL).E6.0). ANB. CIPASTC2).E@.0)) GOTO $9 

O306 39 DO 103 [=t, WANCHT 

307 «6¢ 

0308 C---------FROMPT WITH HANES OF FILES CREATED $0 FAR 

0308 «#6¢ 

a310 WRITECLU.6 CMAMECIL. T2,0191,3) 

oyii 6 FORMATC’?TRANSFER FILE ‘,382,’ 7 C¥NWD°D 

O3t2 REROCLUL201) ANS 

a319 IFCANS.£E@.1HN)> GO TO £63 

o3i4 6C¢ 

QUIS C---- rere WRITE OUT THE I’°TH FILE OW THE LIST 

oyle oC 

asi? CALL OUTPRCY.FOuUTDY) 

o318 C 

O319) C----+8--- OPEH & THEM PURCE THIS DISC FILE 

o320 6 

0321 CALL GPENC IOCB8. TERR. WANEC1,1)9,0,0.3ERCL)) 

0322 TFCIERR.LT.OICHLL ERRC TERR) 

0323) =O CALL PURGECTOCB,. TERR. WAMECIJI).O,ECACI)) 

0324 0 IFCLERR LY .0} CALL ERRCTERR? 

0325 ¢ 

0126 163 CONTINUE 

0327 ~«6C¢ 

0328 C--~--TRANSFER FILES WHICH WERE HOT CREATED DURING THIS 

0328 #6¢ SCKEOULE 

0330 ¢ 

0331 19 HANCHT 20 

0332 VRITECLU, 4) 

0333 34 FORMATC’ TRANSFER PREVIOUSLY CREATED FILE? CYSW)') 

0334 READCLU. 201) ANS 

0133 ITFCANS .€@.1HN) GOTO 36 

0336 NRMCHTSNANCHT 41 

0337 VRITECLU,I7) 

0338 3? FORMATC’ ENTER FILE WANE--6 ASCII CHARACTERS’ ) 

0339 READCLU, 30) CNHAMEC TI. MAMNCHT), Flak, 3) 

0340 VRITECLU. 38) 

9341 38 FORMATC’ ENTER CARTRIDGE @°) 

0342 READILY. 2 C TORENAMENT YD 

9343 Gard 33 

03144 ~«€C 

0343 ~«€C 

0346 36 IF CCTOUTDY WE .6). AND. CIQUTOY .NE.18)) GOTO 2 

0347 «6C¢ 

0148 €----- WRITE OUT 'END OF TAPE’ MARK CUILL BE USED BY PROBA). 

0349) (6C¢ 

0330 WRITECTOUTOV,73) 

0331 ENDFILE TOUTOV 

9332 ¢ CALLE EXECCI.10,TOUTDY) 

0333 73 FORMATO’ RAXK’ D 

0334 = 

033835 Garo 2 

o3j3¢ ¢ 

o3137 «6¢ 

0358 C--=-----------0-- wenn eee eewnee one ee see necnenee ween en nen sent 
71 

2 \ t 77 peneereenagr een 


- Sn Ta Tre eee 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


e359 6¢ END PROGRAM € 
C) ) ee eoeeneee ee 7 
0361 400 WRITECLY. 401) 
03162 401 FORMATC’END OF BIGST’ > 
0363 stop 
0364 ENO 
0363 «OC 
0366 «6C 
0316? CHAMAKH AAHSHSESOSH IO EHS SHES OHEHSESESSHSEESESEEOH HOVE SELES ESSE 
6368 SUBROUTINE OUTPRCMUN, TOUTDY) 
0369 CC 
0370 «¢ THIS SUBROUTINE TRANSFERS THE NUN’TH FILE OM THE LEST 
0371 6C TO THE OUTPUT KEDIUN. 
0772 ~«C 
0373:>~«¢ 
*574 COMMON LUCS). MANEC 3,20), NANCHT, ICRC20), IPASTCS) 
.175 THTEGER HTIME. NTIME. STINE, ICHARC SSO), TCHANC 20) 
0176 UMTEGER F0COC 272), 1 7TLTLEC SO), KCHANC20) 
037? INTEGER TPOWC2¢) 
0378 REAL STOREC 20),0UTC 20) 
0279 DATA IBLANK/3S4e2H /.10C8S/256/ 
0380 6¢ 
o3e1 C INITIALIZE ARRAYS 
‘ 0302 ¢ 
9383 po 2re21, 46 
oes = 2 ITITLECE) = JBLANK 
oyes o¢ . 
0366 «C OPEN THE FILE ‘ 
: 0397 ¢ 
> 0398 CALL OPENCIOCB. TERR. NANECL,NUND,0.0, ICRCNUM), IDCBS) 
03789 IFC TERR.LT.0) CALL ERRC TERR) 
0390 «C 
0791 =«¢ GET INFORWATION ABOUT THE LOGGERS 
0792 =«¢ 
0792009 WRITECLU: 10) 
03794 :0 FORMATC’ ENTER ® OF CHANMELS, & CHANNEL OS (12)') 
0135 PERDCLU, JINCHAN, CECHAWC I), Tel, NCHAN) 
| 0396 NCHAR=NCHANOEL 429 
9397 3 FOPMATC ZL 12,2493 
3 4393 (FCMCHAN GT.291 GO To 9 
0399 «C 
94090 00 4121, 20 
0401 4 OUT( ID = 0.0 
0402 ~«C 
9403 41  WRITECLU,15) 
0404 {5 FORMATC/ENTER TITLE FOR THIS FILE CUP TQ €0 CHARS)’ ) 
0405 READCLUL 20) CITITLECT), T= 4, 40) 
0406 29 FaRHATC 4082) 
440? ¢ 
edad C WRITE OUT THE HEADER TO QUTPUT LU 
9409 ¢ 
0410 WRITECTOUTOV, 25) CITITLECE). T= ft, 40) 
: 0441 WRITEC TOUTOV, 39 CICHANCT), 101, NCHAN) 
0412 WRITECTOUTOV, 35) 


9413 25 FonMaT Ly. 40A2) 
o4t4 30 FORMATC’O CHANNELS °.20¢7X%,12)) 
o4ts 35 FORMATC’O TIRE’) 


o4t6 ¢ 
9417 C¢ READ A RECORD 
0418 oC 
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CALL READFC IOCE,. TERR, ICHAR,SSO.LEN) 
TFCTERR.LT.O CALL ERRCTERR) 
IFCLEN.EQ@.-1960 10 70 


ix] 


TFC I CHAR NE IBLANKIGO TO 39 


WVRITEC TOUTOV, 79) 

WRITECLU.I8) 

FORMATC’ SECOND GROUP OF CHANWELS WILL BE’ 
-’ PROCESSED NOW.’/’FOR SECOND GROUP OF’ 
+’ CHANNELS, PLEASE’) 

co Ta 9 


CONVERT ASCII GTRING TO INTEGERS AND RERLS 


AAAMNAONAAaAn 


CONTINUE 

CALL CODEC 2eLEN) 

REAOCTOCHAR, 40 HTIME MTIME, STIRE.CKCHANC TD), STQRECI), 
TPOUCT). ITs 1. NCHAND 

FORMATCAIX, 3CL2,18),20C2%, 12, 1%6F3.5,119,1%) 


MULTIPLY BY APPROPRIATE POWER OF 10 


DO 30 I 2 1, NCHAN 
STORECT2 = STORECI29¢10.0¢0€C3~IPOUCT))) 


WRITE DATA OUT TO RIGHT LU 


VRITECTOUTDY, GEINTEME.MTIME, STINE, CSTOREC UK), JK = 1, ACHAN) 
FORMRTCIH -2K%.12.737°, 82,727, 92:20C 3K. F? 49) 


VRITECIOUTIDY, 73) 
FORMATCLH1, 11089 


CALL CLOSEC I10C8. TERR) 
TFCTERR.LT.OCALL ERRCIERR) 


RETURN 
ERD 
CHOMP OTHN SORE HOSSSH ASSES HATHHSHTHRSASTSE SHS ASSESS OLEHSEESEEOEEL 
SUBROUTINE SKIPCHUM. I TAPE, HWDS) 
SUTEGER NUM, TTAPE, TSUFRCI84) 


iTPad 2 86 


00 100 1 = 1. ITAPE 
IFCLT.E@.2)2TPNO = 18 
00 346 J #= 1 . NUM 
REG = EXECCL,TTPNO. IBUFR, RUDS ) 
REG = EXECCI9, I TPHO. ISTAT) 
ISTAT = [TANDCISTAT, 0402008) 
TECISTAT.E@.0)> GO TO 25 
COMTINUE 
CONTINUE 


RETURN 
END 

CrABAKORE KSEE RHO RAONEKE SHEER HOSES EASHERERAEEHeREReEEEEEEeEl 
SUBROUTINE ERRCIERR) 


Fee ce uae de ei nacteamche Lanett wicsttainlbis Pan? Rall ie PIat Ses ET 


a . 
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0479 ¢ 

0480. 6¢ THIS SUBROUTINE PRINTS THE ERROR CODE PASSED TO 11 

o4et Cc 

0482 COMMON LUCS), NANEC 3,20), HANCHT, ICRC20), IPASTC3) 

0483 INTEGER ANS 

0464 VRITECLU, 10 TERR 

0405 10 FORMATC’ TERR © °,16,°ABORT PROGRAM? CY/H)’) 

0496 READCLU, 201) ANS 

0487 «201 =FORMATCALD 

0496 IFCQHS HE .1HY) RETURN 

0489 STOP 

0490 END 

0491 C 

6492 CHOeOHSTHESHSHSSEHSERHSESASSESHSSHSOSSSH HHS OKRSTESHOHSSHOHESEOSESEEESL 

0493 SUBROUTINE TRANSCRUN) 

0494 ~«¢ 

6495 C THIS SUBROUTINE TRANSFERS THE H’TH FILE OR THE 

2496 oC LIST TO THE MASTER TAPE 

a497 ¢ 

a49@ DIMENSION FOCBC272). 1 BUFR 272). 1SCRC 166) 

0498 COMMON LUGS), HAHEC 3,20), HARCNT, ICRC 20). 1PASTC3) 

93500 C 

o501 C OPEN THE FILE 

0302 ¢ 

9503 CALL OPENCIDCR. TERR NAMECL.NUN), TOUM,IDUM, ICRCHUM), 256) 

0504 TFCTERR.LT.0) CALL ERRCTERR) 

0505 ¢ 
0506 C READ A RECORD 

g307 ¢ 
0308) 5 CALL REAOFCIOCB, TERR, IBUFR,256,LEN) ; 
9509 TFCTERR.LT.OCALL ERRCIERR) i 
0510 IFCLEN.LT.0) GOTO 50 j 
osit C H 
a5i2 CHECK TF RECORD 18 GOOD 

os1356¢ 

0514 NCHAN@=(LEN-23 9/11 
oSi5 HINTEGHNCHANSG+46 { 
0516 CALL CODECLEHW) 

O51? READCIBUFR. 41 CISCRC J), Jat, NINTEG) 

0516 41 FORMATCLIN, 3¢2E1, 14), 20C2K- 211, EM, GIL, ER)D 

0519 DO 16 Kat, WINTEG 

0520 1BA0=1 

o$21 00 95 1=0,9 

0522 IFCISCRCK).€0.1) 1BAD@0 

9923 95 CONTINUE 

0524 IF C1OAD.E@.1) GO TO § 

0525014 CONTINUE 

o$26 C 

0527 ¢ WRITE IT OUT 

9528 ¢ 

0529 REG@EXEC( 2.6, IBUFR,LEN) 

0530 Gora 5 

0531 ¢ 

0332 C WRITE EOF OM TAPE & AND CLOSE THE DISC FILE 

0533 ¢ 

0534 SO REGHEKEC(3, 01100) 

0535 CALL CLOSEC10C8) 

0536 RCTURN 

053? END 


BGFTY Ceaeenesessereensseseses rae nsegeeesessegasseseerseoeesaeeesel 


Ege se 
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o339 SUBROUTINE EBCASCICHAR.LEN) 

o340. 6C 

a341 ¢ THIS SUBROUTINE CONVERTS & BUFFER GF EBCIOIC 
o342 =#(C CHARACTERS ( CONTAINED IN AN INTEGER ARRAY), 
o543 C€ FROM THE DATA LOGGER, INTO ASCII. 

0564 =C 


0343 DIMENSION ICHARC S59) 
o%46 INTEGER RCHAR.LCHAR 


0549 og tvo § st. LEN 


0350 =6C 

0531 #C GET RIGHTY BYTE & CONVERT IT 

9352 C 

9333 RCHAR = TANDCICHARCT),.077B) 

g354 TFC SCHAR ED. 0400 RCHAR = 0558 
$335 TRiRCHAR EG. UIRCHAR = 3408 


osSe oC 
9337 oC SET LEFT BYTE & CONVERT IT 


a35a ¢ 


9339 LCHAR 2 IANDCICHARCT),0374008) 
9369 IFCLEHAR ED. C299COBILCHAR = 0264008 
ved ITF LCHAR EQ VILCHAR # 9200008 


g3e2 C 
9$e3 C PUCK THE TWO BYTES BACK TOGETHER ACAIN 


9564 
a3635 ICHARCI) = IORCLCHAR » RCHAR) 


9362 100) ©«6CONTINUE 


a570 RETURN 
0371 Cupumaenseaaeeeaeeeeresorsaneseearseseserorsergessesaessegeael 
1372 END 


aPRO 


0901 
0002 
0603 
0904 
0005 
0006 
0007 
0008 
0009 
oatd 
oon1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
9019 
0029 
oo2t 
9022 
99023 
0024 
0025 
0026 
0027 
0028 
0929 
0030 
0031 
09032 
0033 
0034 
0035 
0036 
0037 
003¢ 
9039 
0040 
0041 
0042 
0943 
0044 
0045 
0046 
0047 
0048 
0049 
00346 
0031 
0032 
9033 
0034 
0085 
0956 
O93? 
0058 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


DF 7=00903 316 OW CROOOS6 USING 00074 BLKS R=9000 


nm 
~~ 
=z 
> 


IT SHOULD BE USED WITH GCINFF ARD &CINSE. 


THIS IS THE FIRST OF THREE PROGRAM FOR REDUCING 
EXPERIMENTAL DATA. INPUT IS ON TAPE UNIT 18. 

OQurPuT 18 TQ A DISK FILE. SOME OUTPUT IS ALSO 

SENT TQ THE LINE PRINTER AND TAPE UNIT @ 
SEIMULTANEQUSLY. THIS PROGRAM'S OUTPUT (DISK FILED 

1¢ USED AS INPUT TO CINFER. 

THIS PROGRAN IS CONSTRUCTED 10 HANDLE A MAXIMUM OF 20 
CHAHNELS WITH & TOTAL OF 3560 SCHNS OF BATH PER CHAHWEL. 
THIS IS AVERAGED DATA SO IT CORRESPONDS Td 35¢ SECONDS. 
TW QROER To PUT THE FULL 350 SCANS INTO THE OUTPUT dISe FILE, 
TRE VARIABLE HTH MUST BE CHANGED(SEE LIWE 725). 


WOTES 110! THIS PROGRAM HAS TO BE HODIFIED DEPEWDING WHETHER THE 
DATA IS FROWN THE 200 GR 10000 Cu FT CHAMBER. SEE LINES 
296, 302 AND 306. THE LOGIC FUNCTION SUITCH, CHANNEL 
63 IS DIFFERENT. LINE 306. THE PRESSURE TRANSDUCERS 
OUTPUT IS DIFFERENT IN THE TWO CHAMBERS. 


THE CONSTANTS FOR HOZ2LE DIAMETER AND CHAMBER YOLUNE 
AN AND VT RESPECTIVELY NUST BE NOOLFIED. 


OOCUMENTED BY ALAN BRODER 373780 
COMMENTED BY ANDREA HUNTER 7-30-80 
WODIFIED BY FREDO W WILLIAMS 8104998 


AAMAMAAAANAAAANAEQANAAKGANAANAAAANM 


PROGRAN PRODF 

OGUBLE PRECISION ac 

REAL HTL WT 2Z,NTC 250) 

INTEGER AK20140) 

DIMENSTON AKC 790), 1BUFC 144), WANEC3),ISEZEC2)9,4( 390,20) 

INTEGER ACCS), TOBUFC100) 

DIMENSION AC40),NCC20),K%1020),K2020),18650 

10),X1020), NCTC 20) 

LOGICAL F,FLAG.F2 

COMMON FPARCS) 

EQUIVALENCE CAK2.AK) 

DATA KES /4HRXKNC 

DATA TBLANK/2H 7 
c 
CHdRHE SOSH AEOHEREHE HA EIG OES DSOEH TESTE DEO NESE SEHOHOHOORES 
Ce VARIABLE DEFINITIONS * 
Ce A-TITLE OF FILE e 
Ce ac-’CHANWEL’ * 
Ce IS-FUNCTION SUITCH e 
Co WAME-UNTQUE MAME ISSUED TO OUTPUT FILE e 
Co NC-CHANNEL HUNBERS e 
Cs WI-TINES FOR EACH SCAN e 
Co RTL-BECINNING TINE OF RUN e 
Ce WT2-TINE OF CURRENT SCAN e 
C= X.K%1,X2-DATA PER SCAN e 
Ce r) 
CROC TAHAHTHERHRHHOHTAOSHOHESHERHEERHEOROERESEEROROSEOESE 
c 
c 


16 


NOTE!! THIS 18 A MOOIFIED FORM GF PROOA TO HANOLE LONGER OUNP TIME 


eaten tt an ae ee re 


vs59 
969 
Gs6t 
9962 
v463 
Dore | 
0965 
vse6 
016? 
9468 
vg69 
yaya 
yart 
vu722 
au23 
50274 
ya7§ 
9976 
og77? 
vse 
0479 
9389 
0981 
2482 
098g 
vne4 
0985 
0986 
ad8?7 
0188 
0989 
aude 
oe B 
0992 
9093 
9994 
Gugs 
0096 
0097 
aoa 
7493 
u100 
9103 
Yi02 
pind 


i+ 
piu 
age 


‘| 
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rOuT=8 


REWU if RND WRITE OUT FILE LABEL AND CHANNEL HUNBERS 


a oaan 


CALLE RAPARCIPARD 
WRITECIPHRC LI. 10003 
1009 FORMHTC’SGIVE CHRIRIOGE @,. OUTPUT FILE NAME 
1.715. 86973 
READCIPARCE), 1LO0IST CR NANE 


1902 FORMHTCIS.1X, 3a2) 
TSiZ2EC1) = -t 
iTYPE = 3 


CREATE A DISK FILE 


aan 


CALL CREATCIBUF, TERR. WAME- ISIZE, I TYPE, FOUN, ICR) 


TFCTERR. LE.O CALL ERR IERR.373 
CALL OPENCIBUF,. TERR: NAME) 
WudS REROCIE, Licadctd. ist,eo) 
Cc 
Cc CHECK IF WE HAVE REACHED THE END OF FILE 
c . 


TFCACE) EG XESIGO TO 9090 
z FORHATCQ20A4G) 
REWDCLS. DIAC. ERACL >, fet. 10) 
FORMATCIX. SA2Z,10FLO 1) 
60 3 1st,i¢ 
WCC D)skLC1) 
t WRITEC TOUT, 42CACT), 181,20),AC CNCC I). £81,10) 
4 FORMATCILAS, 20R47/1H J SAQ,L0T67L1K 1 TIME) 


tw 


tad 


C SKIP A LIWE GF IHPUT 


READCI8,. S53GAR1, CAR2Z, CARI 
PE) FORMATC3R4) 
c 
C READ IN TIME ANDO 187 10 COLUMNS GF OATA FOR THAT TINE 
c 


READCIO, SiMH- AHL MM AMOMSLCXLCT), 681,10) 
3 FORMMTOLON 4. 81,12, 01,02,10F 18.1) 
‘ SYMVERT TIME TO TIME IN SECONDS 
: HTLSHG*HH2G6O +HHOZEOO. 
¢ F @ILt 8€ oct WHEN THERE IS NO DaTa LEFT 
Fo FHS. 
A UiLL POINT TO CURRENT LIWE OF DATA IN THE K ARRAY 


Jag 


READ IN DATA, CONVERT TINE TO SECONDS 


aan 


» READC1O, SINK, AN, WML AMLNS,.CK2CT), 181.10) 
NTQSNS*HN4EO. +HHOSEOO. 
C©O4T2 E49. 4. OFFa TRUE. 


77 


hate. ghee ee, OS Se ee carey Se een Orne Os ee Snteren delliaihlls inaneen inementenennemndiedtettns aeinieaidie addins nae eat ae aie 


a a hi _ : — = 


a“ 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


9319 ¢ 

ogi20 C IF BAD DATA GO BACK FOR HORE 

121 C 

9122 TFCNT2 GT .WT1+2.0R CNT2. LT. N11 AND. WOT.F))CO TO ¢ 

9123 =6¢ 

vi24 ¢C GO TO 8 IF YOU HAVE TO INTERPOLATE 

0123) ~=6C 

9226 TFCHT2 .NE.NTLIGO TO 8 

at2? > ¢ 

0128 C AVERAGE OATA RHO GO BACK FOR NEXT LINE IF WOT EQF 

vi29 ¢ 

oi39 0G 7? Iet.i¢ 

viii 7 K1iC Ted. SeC RECT VeK2C7 DD é 
Gis2 IF¢F Gd Ta 100 

JA33 30 TO 6 | 
9i3¢4 oC \ 
0135 C STORE GOOD LINE OF DATA IN XM ARRAY-CREATE WEXT COOD LINE. 

033@ jC <«IbTERPGLATiING IF HECESSARY). WRITE OUT LINE JUST STORED i 
0137 C IW X ARRAY THIS 19 DATA ONLY, TINE IS STORED IN NT. i 
0138 C 
0139 8 dago1 

1490 NTC J)8HT1 

vida oC 

v142 = ¢ OT-DIFFERENCE IN BEGINNING TIME AND CURRENT SCAN TINE 

v14306C€ 

2:44 DT=NT2-HT1 

0145 00 9 214,10 

2146 KOI, TKI CT) 

0147 9 KIC Td XL CT eC KSC Ty -K£C1 9 070T 

0148 NTLSNTI et 

9149 6C WRITECIGUT. LOIS NTC UD CXCILE DT et, 20) 

9150 1a FORHATCSH -13,F?.0,10F6.1) 

o15% TFCNT2.G7.NTL26Q TO @ 

0152 IFCFIGO Td 100 

g152 &Q 70 & 

0154 #¢ 

0155 C NJ WILL POINT TO BOTTOM OF DATA IN X ARRAY 

o1S6 C 

9157 100 NJsd 

9158 C 

0159 C NOW DO SAME THINGS TO JNO 1¢ COLUMNS OF DATA FOR 

6160 C THE SANE TIMES. 

0161 ¢ 

0162 READC16,1)0ACT). 1821.40) 

0163 READCLO.-2IAC, CHACT >, Fet1,20) 

0164 OO 101 1211.20 


0163 10L MCCT 2x17) 


0166 =#C WRITECTOUT, 49C ACTS, Te2t, 40), AC, CNCCE)D, Fett, 2¢) 
ote? 6¢ 
a16@ C SKIP A LINE GCF CTHPUT 
9169 =6¢ 
at7a READC 16,535 )GAR1, GAR2, CARY 
0171 «C 
ai72 =6C READ IN YIME AND 2WD 10 COLUMNS OF DATA FOR THAT TINE 
9173 «¢ 
0174 102 READCIO,- SMH, AH, MM AM MS ,CKICT >. F0it,20) 
0173 ~«6C 
0376 «6C CONVERT TIME TO TIME IH SECONDS 
01772 «©C¢ 
0178 NTLSNSSMN960. HHO 3600. 
78 
3 
4 \ ‘ ie 
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a179 TFOMTE LT.NTC1))960 TO 102 

0180 =6¢ 

01891 ~¢6C F WILL BE SET WHEN THERE IS NQ DATA LEFT ALSd F2 

0182 Fs. FALSE. 

0183 F2 = FALSE. 

9184 HaNTi-HTOd) 

a165 NyosJe) 

9186 ¢ 

018?) «6¢ READ IN DATA CONVERT TINE TO SECONDS 

o189 6¢ 

91a9 £93 READCLS9,5)MH, AW, MM AMIMS,CK2CT),£211,20) 

0199 NTQ=NS+MH49G0. +HH9IEOD. 

0191 IFCNT2.GT.NT1421G0 TO 1093 

0392 TFCNT2.EQ.9)F2=. TRUE. 

0193 é6C 

0194 ~=6€C GO TO 105 IF YOU HAVE TGQ INTERPOLATE 

9193 #6¢ . 

0196 IFCNT2. HE NTL GO TO 105 

0197 ¢ 

0138 «#6C QVERAGE GATA AND GO BACK FOR NEXT LIWE IF NOT EOF 

9199 ¢ 

0209 DO 104 L=1t,.20 

0201 Soh XACLISd SHOKLCTIARACIIY 

0202 GO TO 103 

203 #C 

9204 C STORE GO00 LINE OF DATA IN K ARRAY, CREATE NEXT COGO LIWE, 

0205 C CINTERPOLATING IF NESSACARY), WRITE OUT LINE JUST STORED 

0206 C IN X ARRAY. 

9207 C 

9208 105 dadei 

9209 TFC U GT. NJFe TRUE. 

0210 NTC GENTS 

O211 OT=NT2-NT1 

0212 00 196 [21t.20 

g243 RCS. TKR LCTD 

9214 106 MLC VIERA CT VCKACTIARICL 7 0T 

0215 NTLANT141 

v21e oC WRITECTOUT. 1O3I,NTC UD -CXCI LV, Pali. 2e) 

021? IFCNT2.GT.NTLICO TO 105 

9219 IFC NOT. CF OR.F25)960 To 103 

0219 TECEI+GO TO 1048 

0220 197 &EREC LS, SMH, ARL MM ANAS 

0221 TFCMH NE 0 OR MH .HE.O.OR.NS.NE.09G0 TO 107 

0222 =«6C 
i 0223 C NUN WELL HOW POINT TO BOTTON OF LAST COMPLETE SEY OF DATA 
\ 0224 C (COMPLETE = ALL 20 COLUMNS OF DATH). IT IS DETERMINED WHETHER CHANNELS 
rE 0225 C 0-69 GR %-79 HHS THE LEAST HUNGER OF SCANS AND IS RETURNED TO NUM. 
r. o226 «6C 
| 0227) «108 NUMeHY 

0228 LFCJU LT. MU MUN Sd 

6229 


Cc 
0230 C PRINT GUT HEADINGS AND COLUMN HEADINGS WITH 
0231 C CHANNEL NUMBERS REARRANGED. 
9232 C 

OATT Cree ade em ese eS eee eS AEH ESOS EHAETTHSKSEHH SETHE SSSSSSHSSSHERERHOHSHESES 
9234 C THIG 1S THE ARRAHCEMENT OF CHANNEL WUMBERS IN ONE ARRAY. THE »® 


9235 C= GECOND ARRAY CONTHINS THE CHANNEL NUMBERS REAPRANCED IN A * 
9236 (C# PRE-OETERMINED ORCER. * 
9237 Cee mw ener ww ee nen enn enne Rec tee ee rw ere rem rw ew enn wre ence een ano -8 
"2398 Ce DEFINITION OF HEADERS oy 
79 
€ {" eee “5 eof é a9 ae Re i Seer. | 


aH ao mY 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


0239 Ce CHANNEL NUMBERS-CHANNELS 60-79 * 
240 (Cx ARRAY @2-CNT) THE ORICTHAL ORDER OF CHANNEL NUMBERS IN * 
o241 Cs ASCENDING ORDER ® 
0242 Cs ARRAY 2-CHET) ALTERED ORDER OF CHANNEL NUMBERS * 
0243 Ce LOCATION- THE FOSITION OF PURPOSE OF CHANNEL NUMBERS s 
0244 CP om nee ee ee Sei Sire iois te ieasies ae nen ener wen wenn ones * 
OE be wa re eee ne * 
0246 Ce ARRAY a1 CHAHNEL HUMBER ARRAY #2 LacaTtiIan ° 
0242 CR arene nnn Beene ene eee ee mater eee * 
0248 Ca WCC1) 60 RCTC 1) PRESSURE * 
0249 Ce NCC2) 6t ucr¢c3) PRESSURE ° 
0250 Ce NCC 3) 62 HCTC190) TEMPERATURECE) * 
0251 C# NCC 4) 63 ” FUNCTION * 
0252 Cs NO< 5) &4 ACT CLE) TEMPERATURECC) * 
e253) ce HEC 6) 65 RCTCUS> TEMPERATURECC) . 
0254 Ca NCC?) 66 NCTCL4) TEMPERATURECC) ° 
e253) Ce WCCO) 6? NCYCUI> TEMPERATURECC) s 
o256 Cr WCC 9) 698 HCTC12) TEMPERATURECE) id 
0257 C* HOc ie) 69 NCTCE1) TEMPER ATURECC) e 
02358 C# NCC 21) 70 NCTC2) HAZZLE ENTRANCE © 
0259 Ca HWO032) 71 NHCTCE) TEWPERATURECC ) * 
9260 Cs HOC 29) 72 ® TANK 1 EXIT * 
o261 C 

9262 Ce WCC 14) 73 * NQZ2LE THROAT * 
0263 > C* WCC 15) 74 NCTC?) TEMPERATURECC) * 
9264 ¢C* NCC 16) 75 WOTCS) TEMPERATURECC) 6 
O203 Ce NCC 17) 76 NCTCO) TEMPERATURECC ) 6 
9266 Cs WC¢ 14) 7? NCTC4) TEMPERATURECC) * 
0267? Cs We¢19) 76 NCTC9) TEMPERATURECC) * 
0268 C« NCC 20) 79 s TANK 1 * j 
CO A eee * 
027% CHHOTE: eee aw ree ase eI PH HIF IS DIRARDIDIMFISDIMAPARISPISSEHSIHAEDHSHEH ES 
9271 Ce ¢#) INDICATES WHO CORRESPONDENCE TO THIS LOCATION e 
D872 COem mee ene nn cen nn tence rn wer newces SS eis Sie) cole ee Seles Sele oS ae Sie 6 Sein -e 
0273 Cesar eAS sea AGAHSATARAARABRIAAAMHASASASAADAHRARHABDATHRARALOHHHERAEDHT EES 
9274 ~«C 

0275 NCTC 1ISNCCE) 

0276 HCTC2)aNCC EL) 

027? NCTC J eNC(2) 

0278 NCTC 49 2NCC16) 

9279 NCTC 5 NCC 16) 

9289 NCTC E DANCCE2) 

0281 MCTC7>SNCC LS) 

9202 NCTC @eHCC 17) 

0283 NCTC 9DSNECEO) 

0284 WCTC10)8NCC 3) 

9283 NCTC 110860010) 

2286 NCTC 22).2NC(9) 

9287 NCTC 13 .2NCC 8) 

0288 RCTC 14 Do NCC 7) 

4269 ROTC ES DANCED 

9294 NCTC 16 )=NCC 3) 

o291 C WRITEC TOUT, 200 CACTD. Tet, 20>, CNCTC ID. Tet, 16),C3, 8t,16) 

0292 279 FORMHTCIHI. IX, 2084/7 18HOCHANNEL OF GRIGIN,. T4,15T6C1H -SMLHT, 9X. L6T6 
0293 1,6H YALVES.OH J TIME) 

0294 ¢ 

9295 C FEARPANGE THE ORDER OF THE COLUMNS OF DATA. 

0296 ¢€ ALSO HOVE THE FIRST GOOD BOW OF BATA TO THE 

9297? ¢€ TOP OF THE wPRAY THEN DUMP OUT DATA TO THE 

9298 C CLIWE FRINTER «TRE bl 202 LOOP SCALES 
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299 
0300 
9301 
0302 
0303 
o304 
0305 
0106 
0302 
0308 
0309 
o3!0 
O3i1 
0312 
031) 
0314 
OVS 
CREE 
O11? 
y318 
9319 
93296 
0321 
’ 0322 
0323 
4324 
0325 
032% 
9327 
0328 
0329 
9330 
0331 
0332 
9333 
0134 
0135 
0336 
9337 
339 
9339 
03490 
O34 
4342 
a4aj 
9144 
94345 
0346 
934? 
9143 
149 
3159 
9351 
9332 
9383 
9334 
9335 
91356 
93S? 
"282 


| 
| 
7 
| 


AAAS 


aii 


AAAMAAA ananon 


APNAAA 


anno 


202 
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CHANNELS 60 AND 61 AND SETS ARRAY ISCH) BHEN 
THE HOZ2LE 1 GN.) 


VRITE THE VALUE OF WUO 


VRITECTPARC 2 DL 1S 121 HIOLNUM 
FORMATC“HJO2°, 18, "NUM=", 18) 
HO 206 K=NI0, NUK 
daKket-Wug 
HEC USHTCK) 
TSC J )290 
DQ 202 I=1,20 


CONVERT TANK 1 CCHANNEL 60) TRANSDUCER TO PAESCAL’S 

PER SQUARE METER PRESSURE, FOR THE 200 CU FT CHAMBER TRE MULT 
FactaoR 16 oO 15 WHERE AS FOR THE 1£¢,060 CU FT CHAMBER THE FACTOR 
Is a. 


PFCHCOT) E@ BOIKCK, TY#XCK,1900.15714.7 


CONVERT CHAMBERCCHAWNEL 61) TRANSDUCER 10 PASCAL’S 
PER SQUARE METER PRESSURE, FOR THE 200 CU FT CHAMBER THE MULT 
FACTOR IS 9.053 WHERE AS FOR THE 16,000 CU FY CHAMBER THE FACTOR 


S$ ) oot 
TFCMCCT) €Q@ GLIKCK, T2OKCK, 1300. 050/14.7 


DETERMINE ITF THE FUNCTION SUITCHCCHANHEL 63) IS \ 
OH OR OFF FOR THE 200 CU FT CHAMBER THE TRIGGER LEVEL SHOULD BE \ 
Sf uMERE AS FOR THE 1¢,0¢9 CY FT CHAMBER THE LEVEL (S$ 1000.06. 1 


TFCNCC IT). £0.63 AND. ABSCKCK.19). GT F. 0000 )TSCsIat 


THE FIRST SUBSCRIPT GF X ARRAY J=THE NTN SCAN @ 
ant THE SECOND SUASCRIPT HOLD THE CHANNEL NUNBER 


KOS. F8KCK, FE) 
MTC CURSED 
RTC 23aXe utd) 
RTC DPR I 2) 
RTC 4 9X0 5,18) 
NICS IHC 0,16) 
ATG ARO SL42) 
TC798X¥CN.19) 
RTO BRC ILL7) 
ZAYCMWVERC IIL9) 
RTL LO 98XC0,9) 
£TO1298¥OU,10) 
MTC ¢299KCOU,9) 
%TCLI aK, 8) 
RTC L498K%05,7) 
XTC LU 3KCd,6) 
MTC 4632KCU,5) 
pO 294 [xt., 16 
Kes, Lek) 
WALTEC TOUT, 208 VINCE, ONCIL TE), 181.56), 18Cd) 
CRHTINUE 
CORMATORH A T9LF? ©: ON. F6.3.F6.1,.F6.3,23F6 1,16) 


8] 


0358 ¢ 


0366 #C 
o367 ¢ 
0168 ¢C 


o 

os 

wo 

nN 
AANA 


wo 

w 

wa 
Maoanrawte 


wR 
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STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


TTE OUT NEW PAGE HEADERS, AND DUMP OUT CHART OF DATA 

FONMATI 1H1,20N4//7RXISHPRESSURANT FILL -, SKIJHTHERMOCOUPLES/G6XI2HFL 
{O49 - TOTKL TRAN TENE Sat oHLOCATION T,27KLEMOCOCOPCINATES |i X4HTIME, 341 

S26 FM gy FF CMTE PREHTODEG Ka 748i6H? 8 THETA ZU LAI4HCSECICBAR) 

JQOVES fy VBaR ARAL TTGLLOXI4HCHD «=CDEGD Ch) 

CALL CODE 


INITIALIZE TABLE OF GUTPUT CONSTANTS 


299 


FY 
BQ 
ee 
eT. 


pHa 


SHOW EVERY SECOND OF DATA TILL KP+io SECONDS 
THEN SHOU EVERY § SECONDS GF Gaia "Ler KP+e0 SECONDS 


vil 
Ri 
ae 


VRITECAK2.209) 

FORMATIIOH ft 9.900 .t0K 00 -@.986,.10H 2 060.000 .10H 00 -0.293,10 
1H 3 6.4000 -10H 990 0.000, 10H 4 9.000 .10H 00 0.293.108 S$ 0.000 
2 ,:08 of 8 $56,364 6 6 HM .10H 90 a Pr7a.10n 7 6 600 ,10H 090 
T2.749, 29H 8 46 GOO .FOH O06 2.342.164 9 9.900 , 10K 06 2.635, 0N1 
qu 9 G00 JLOH 92 2.928, 19HEt 9.900 10H 09 3.220,10H12 4.000 , 
S19 40 D.5LT,fOH1T 0.000 ,10H 00 93.8906,5¢4H ) 

DATA AG?PHH faa 7 

Frvat) ta. t4, FG JLFG LLFE 3,44, 1I3F6 1.4%,904) 

Pesaro tn a, 446,F8 7.4" ,13F 6 £.4%,5aay 

FLAG: TRUE. 


WO WHERE NOZZLE WAS TURNED ON AND OFF. 
PITHTS TT ON POSITIGN 
POONTS TOG BUTF4+t POSITION 


09 300 k21.d 

Te. TStkh). EO 2 AND FLAG )KO=K 

sFOTS! Kh) EG .2 AND. FLAG IFLAG= FALSE. 
TFCESCR). £€0.0.AND. NOT FLAG IKPEK 

rf TSEh). 60.0. AND. NOT. FLAGIFLAC=. TRUE. 
THSt9 

TPSTHSEP-KOot 


En cHdy EVEGY fe FET AMNOS uF fate FaGT rPsGga SECONDS 
Thirst: THs 28. ThA Wey TAKE @ CITTLE wORk TO GET ALL THE 
ANS DUT 


KL=eK9-1¢ 

K2ah 1449 

SHAXSNIMAKS 

J2h244 
WRITEC TPARC1),.606) JHAX. KP KO, K1,K2 
FORRATOC™ BMAX", 14. "yr Pet, 14, "KOS" PH. KL", 14, SK 2B" 4) 

L239 

baled 

TFCL GT. gNANIGO TO 725 

dade. 

IFCJ LE. KP*10)G0 TO 715 

sated 

TFC J LE. KP+60IGG TA 725 

Jdalegs 

74S GI. SMARIGE 10 225 

TTMANTOEO-NTOROD 

AYE YX IT) 

CTD eNO. 22O27T 2 

oto PvekKeg. 3) 

C0 717 [24,16 
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9419 PAZ | KICT ex d.190273 2 


0420 IFC S CY. KO. OR. 3. GT. KP+2960 TO 720 
0421 L2=3eL-4 
9422 IFCL GT. L39)L2=66 
0422 BWPITEC TOUT. 201: TLTMLCRTCIS, (et, 16), CAKC I), Tel 2,L2e4) 
9424 GQ Td 710 
0425 P20 L2=S3el-4 
0426 IFCL GT. 13)L2266 
642? WVRITEC TOUT, 702 ITH AGL AGL CKTCID, £83, 162,.CAKC ID, Lel2,La¢4) 
9426 Ga ra 710 
0429 ¢ 
9430 C DUNP OUT DATA TO DISK THAT WILL BE USED AS INPUT 
0431 C TO CINFER 
9432 ¢ 
9433 ¢ WOTE! $F NTH ITS SET TO JMAX ALL THE DATA THAT IS ON THE PRODA 
9434 C TAPE WILL OUTPUT TO THE PRODA GUIPUT DISC FILE THE TAPE GUTPUT 
9435 C PEFLECYS ALL THE DATA. BUT FOR THE LONGER TINES, NOT ALL THE DATA 
9436 C $$ SHOUN AS SOME SCANS ARE SKIPPED. 
u43?  f SHE RHISE SET NTH TO A SPECIFIC NUMBER, RENEXBER TO MODIFY THE NEXT 
9433 C FAdetas FOR THE POGPER HURBER OF SCANS. 
9439 =#6¢ 
9440 725 FLAG= TRUE. 
0441 HTHSJNAX 
9442 IFCUMAK GE. 149) NTHelag 
0443 =#C NTH BEPRESENTS NT IN PROGRAM CINFER 
9444 ~=6C NYI= NUMBER OF THERNOCOUPLES 
0443 é6C DT= TIME SERIES NONIWAL INCREMENT (SEC) 
94946 #¢ AM= HWO2ZZLE NONIHAL AREACCHee2) 
G44? ¢ Vis TANK VOLUNECH #93) 
9443 #¢ £F= F.LOd COEFICIENT (SEE NOTES IN CINFR) 
94439 ~«6C GA= SPECIFIC HEAT RATIOC® * * oe. 2 
o430 6¢ Wa= WOOL UT OF AIR ce * .  - } 
O43! 6C wo= MOL UT OF PRESSURANTC® ° . ee | 
0432 =6¢ 
94353 NTIai3 
0454 OTs1.0 
9435 AN=0 010 
0456 VIe5 i 
0437 CF20 06 
0436 Ga=0.0 
0439 WAFO 0 
0460 uP=0 0 
0461 NHUM#40 
O4d62 ¢ 
9463 C POSITION RECORD IN REFERENCE TO FILE 
9464 +C 
9463 CALL WRITFCIOUF, TERR. A, MUM) 
. 0466 TFCTERR LT. OCALL ERRC TERR, 304) 
9467 CALL CUDE 
46a C 
0469 «6C WRITE DATA TQ DISK 
0470 =«€6C 
o471 WRITECTOBUF. 302 NTILNTH. DT. TOTP, AN. VT. CF, GAMA, UP 
j 0472 302 FORMATC214,9F7.3,1H ) 
A 9473 NUM = 36 
9474 CALL WRITFCIBUF. TERR. IOBUFLNUR) 
0473 IFCTERR LT ®CALL ERRC TERR, 310) 
0476 C HATE!!! ! THIS STATEMENT MAY STILL NEED VORKEIE! 
S47? Nad enkTHeK b- 9 
4478 DG 303 Jaki, K4 
83 
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0478 
486 
0481 
0482 
9483 
9484 
0483 
waOg 
149? 
9488 
9489 
0490 
0491 
4432 
9493 
9494 
0495 
9496 
9497 
9498 
0499 
0500 
0561 
05602 
9503 
0504 
9505 
3346 
v3507 
93508 
0309 
0310 
OFL% 
O3i2 
0513 
v514 
osis 
oSle 
g5i? 
03518 
o519 
93290 


O82i 


vi22 
0323 
0324 
O325 
a526 
032? 
0328 
9329 
0330 
9531 
0332 
0333 
0334 
6333 
0536 
033? 
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are 


Joa 


aon 


oO 


2908 


1919 


aane 


AOA AA 


9393 


Cxaee 


CALL CODE 
WRITE GUT DATA TO DISK 


WRITES TOBUF IO4 INC UL TIRCE LDR OI-22,ORC 0D 84,16) 
FORMATCEFS JF? 3.14F5 4.7% *) 

HUM = 43 

CALL URITECTBUF. TERR. IOBUF.NUND 

LFCTERR LT OOCALL ERRCIERR.317) 

CONTINUE 


CWECK TO SEE IF ECF 


GO TO 1008 
DO 9091 I2t,100 


WRITE OUT A LINE OF BLANKS 
IQDAUFCTISIBLANK 
LOOKING FOR THE EOF HARKER 


CALL URITFCIBUF, TERR. XES,2) 
TFCLEGR LY OICALL ERRCLERR, 323) 
DO 9092 131,4 

CALL YURITECIBUF, IERR, 10B0F,1090) 
LFCTEPR. LT SOCALE ERRCITERR, 326) 


DETERMINE THE ACTUAL LOCATION OF THE RECORD POINTER 


CALL LOCFCIBUF,. TERR, TOUNL IRB, IDUM, JSEC) 
LFCTERR LY. 9ICALL ERRCLERR. 326) 
STRUR = CGEC/2 - CIRB #1) 


CLOSE THE DISK FILE 


CALL CLOSEC IBUF, TERR, ITRUN) 
IFC TERR LT. OYCALL ERRCIERR,. 331) 


URITECTPARC 1), 2000 )HANE 

FORMAT ¢ af THIS POINT PRODA IS FINISHED WITH °.3f2) 
STuP 

FORMATC’ DANGER TERR=’,16) 

EWD 


PROM RHAEEH SRE RNS HTH HESS HAORES ORES REAOH ORE SESEHESSEEES 
SUBROUTINE TO PRINT OUT FMP ERRORS AS THEY OCCUR 

FUP ERROR PESCATPTIQNS RARE LOCATED IN 

“RE 42 FREGPAHMER SS RET SPOULCING MANUAL’ 


SUBROUTINE ERRCTER,LIWE) 

ROMMON FPARCS) 

WRITE CLPARCL),. 9999 ITER. LINE 

FORMAT C'°IER@’, 58, 'LIWE HUMBER =',18) 

RETURN 

END 

BROT TAOOOS AHS THE EDO NORTE EHO ETESSSAEOEOLE SHEESH OED ESOS ES 
EnOS 
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Program CINFR accepts data from PRODF and produces the B-tables [6]. 
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STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


OCINFF T=00004 IS ON CROOOSE USING 900062 BLKS R=9000 


oot FTNA 
0002 PROGRAN CINFR 
0003 
dood CC WOTE!!! THIS 1S @ MODIFIED FORM OF CINFR TO HAHDLE LONGER DUMP Tr 
e005 oc TT SHOULD BE USED WITH &PRODF AND GCINSF. 
ovoe Cc THTS PROGRAM IS THE SECOND OF THREE IN THE SERIES OF DATA 
0007 REDUCING PROGRAMS. INPUT IS THE GUTPUT OISC FILE 
egos ¢ FROH PROGRAM PRODA AWD OUIPUT IS TO A DISC FILE. 
0008 ¢ 
oo1e ¢ IF THE NUMBER OF IWPUT SCANS FOR THIS PROGRAM CHANGES, THE FOLLO! 
gor cc BUFFERS NUST BE REVISED, TECHTILNT),TINCHT),PCNT),PSCNT), TECNTD, 
oot2 ¢ FLINCHT TROUT) CHONT) BTACHT 1. TARCHT).TPRSENT). POCNT I, BTTSCHT). 
0013 ¢ 
gorda CC WOTE! S$!!! THE AREA OF THE WO2ZLES MUST BE VARIED ALONG WITH THE 
oars CC VOLUME M& THE CHAMBER IF IT IS CHANGED. 
oore PROGRAN URITTEN BY PROF R. C. CORLETT 
oo17 ¢ AOAPTED FOR USE AT WRL BY ALLEN BRODER 
oo18 C MODIFIED AND COMMENTED BY F.U WILLIANS 810406 
oo19 
0026 DIMENSTOW T1C43, 150), TIWC150),PC150),PSC 150), TSC 180), ACLO) RPC 20). i 
oe2} IFLINC150), TBC 150), CHC 150), BTAC150), TAIRC 150), TPRS(150),XPBC 150), 81 
0022 278¢150) 
2 0023 THTEGER IPARCS), 1BUFC 144), OBUFC 144), IOBUFCLO0), ISIZEC2) 
0024 THTEGER HAMEC 3), WAME2C3) 
0025 UNTEGER CGUFLC IZ), CBUF2C 61), CBUFIC 12), CRUFAC 9). COUFSC 12), CBUFEC IO: 
0926 LGGiCAL FI 
092? DATA XES/4HRKKNC 
0028 DATA TBLANK/2H 7 
: 0029 C 
: 0030 CALL RNPARCIPAR) 
0031 10tL FORMATC’O TIME TEMPCOEG C)’.9X,’BETA BETA’ 
0932 1. /TSTAR PRESSURANT FRACTIGH 7) 


OO33 COLOLA FORMATCOCHANTMUM QGQVERESTIMATE OF PRESSURANT FRACTION’, 
0034 CC 1° SNE TO PLACENEWT IH LWLEY JET £S CTMEAN ~ TPRESS)/‘ 
0033 CC 2°CTAIR - TPREGS) © 3/20. ‘) 

ONJE toll FORMATO CCOMMENCE VALVE OPENING ° ) 

god? 191d FGRAATC’ PREVE FULLY OPEN ‘> 

0938 1015 FORMATC’ COMMENCE VALVE CLOSURE ‘) 

0939 1016 FORMATC’ VALVE FULLY CLOSED ') 


oo4d0 6C 

ood ¢ WRITE OUT HEADINGS TO DISC 
oo42 ¢€ 

0043 CALL CODE 

0044 WATTECCBUFS,.1011) 


0943 cCe CALL CODE 
0046 «CC WRITECCBUF2,1012) 


0047 CALL CODE 
0048 VALTECCBUF3,1013) 
0049 CALL CODE 
0950 URITECCBUF4,1014) 
0054 CALL CODE 
: 0052 URITECCBUFS.1015) 
0653 CALL CODE 
0054 URITECCBUFG. 1016) 
0055 WGRITEC TPARC LD, 1000) 
0086 oC 
ous7 C IWPUT WANE IS THE PRODA OUTPUT FILE WANE 
oase oC 
86 
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0039 CALL CIBAYC IBUF, TBUF) 
9060 6C 
9061 C REWIND TEMPORARY FILE SO THAT IT CAN SE USED FOR 
9062 C INPUT BY CINFY 
9903 C 
0064 CALL RUHDFCTBSUF, TERR) 
0063 TFC TERR. LT. OCALL ERRCIERR) 
9966 C 
09067 C CIMFY IS A SUBROUTINE THAT AVERAGES THE CASES FOR THE STATISTICAL 
9960 C ANALYSTS AND PREFQRNS THE STATISTICS. MEAN VALUE OF ALL QUANTITIES 
2v69 C NORMALIZED MEAN LOCAL PRESSURANT FRACTIONS. YARIANCES OF WEAN 
0970 (C LOCAL PRESSHRGNT FRACTIONS AND DEVIATIONS GF MEAN LOCAL PRESSURANT 
00714 (C FRACTIONS. 
o272 ¢ 
0073 ; CALL CINF YC TBUF, CBUF) 
o074 = «¢ 
0075 C DELETE TEMPORARY FILE 
on76 C é 
ou77 CALL PURGECTAUF, TERR, THANE) 
ou7e TFCTERR.LT.OCALL ERRCIERR) 
vo7s C 1 
9980 C INITIALIZE AND URITE OUT PADDING BUFFER TO END OF OUTPUT FILE | 
o9e1 ¢ 
9982 CC TOUFCIO12)213 
0983 po S I1,100 
0084 3 TBUFC IDS IBLANK 
: 0085 po 10 © «181,4 
0986 CALL WRITECOBUF., TERR, TSUF, 100) 
0097 “0 IFCTERR.LT.6) CALL ERRCIERR)D 
9238 ¢ 
0089 C CLOSE AND TRUNCATE OUTPUT FILE TO CORRECT SfZE 
9090 =6C 
0091 CALL LOCFCOBUF,.IERR.IDUN. IRB. IDUM, ISEC) 
° 9292 TECTFRAR LY. OCALL ERRCTERR) 
9993 FTRUN = ISEC/2 - CIRB ¢ 1) 
ngs CALL CLOSEC OBUF., TERR, ITRUN) 
gags TFCTERR. LT. O CALL ERRCTERR) 
9996 
0097 C WRITE OUT MESSAGE THAT CINSY HAS FINISHED. 
99098 ¢ 
0399 WRITEC TP@RC 12.2000) ONANE 
O100 200 FORMATS” AT THIS POINT CINST IS FINISHED WITH ", 382) 
ula. STOP 
0102 ENO 
o103 C 
o10¢@ eccecececcecececcececccecectecceccccceccecceccccce 
0103 =6C¢ 
0106 SUBROUTINE ERRCTERR. LINE) 
010? C THIS SUBROUTINE WRITES OUT THE ERROR & PASSED Ta 
3:0@ C &IT. AND THEN HALTS THE FROGRAN. THESE ERRORS ARE FOR FNP 
9309 C CALLS. IW SGNE CASES THE LIWE NUNBER IS GIVEN. 
e219 oC 
ara INTEGER TERR, FPARCS) 
atta CONMOH IPAR 
osha VRITECIPARC TD, 10) TERR LINE 
' o1t4 10 FORMATC’ YERR = ’,16.’ LINE NUMBER=’,18) 
9113 Stop 
ots EHO 
O1n7? ¢ 


O19@ CECCCCCCCCCCCCCCCECCCOCCCCCCCCCCCCCCECCCCCCecCcce 
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STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


o11s) o6¢ 

ize SUBRQUTINE CINAVITHOUF. OUTBUF 

e121 INTEGER INBUFC 144), QUTBUFC 1464), IOBUFCIO0> 
9122 DIMENSION DOC 101.235).03¢50,21) 

0123 DATA IBLANK/2H / 

O124 DATA WL/99/ 

0123 DATA INES/2NRK?/ 

9126 Data ICO/2H V/ 


0127 CC READ IN THE FIRGT RECOCRO FROW QPEN INPUT DISC FILE 

0126 C THE LARGEST INPUT RECORD IS CONTROLLED BY THE SIZE OF IOBUF, 
0129 C WHICH CURRENTLY IS 100, SEE DIMENSION STATEMENT. 

O13¢ 1 CALL READFCINBUF. TERR. LOBUF) 


O138 IFCTERR.LT.@>CALL ERRCTERR.1) 
0132 C SEY THE DATA ARRAY EQUAL TO 0°8 
0133 00 3 NTK=1,590 

0134 DO 3 L=1,21 

a135 DICNTR, 1320.0 


136 3 CONTINUE 
0137 C TEST TO SEE IF YOU ARE aT THE END OF THE FILECLOGKING FOR “XKX") 


0136 TFC LOGUFC1).EG. ERESIGO TO 9090 

0139 C READ THE WEXT THREE RECORDS FROM THE OPEN INPUT DISC FILE 
9140 00 101 [#1,3 

0141 CALL READFCINBUF, TERR, I1OBUF.101) 


0142 1Of FFCTERR.LT.OCALL ERRC TERR) 

0143) C READS IN 104 LINES OF DATA, STORING ONLY DATA AND DISRECUARDING 
0144 C TITLE LEWES. TO CHANGE THE ANOUNT OF DATA INPUT THE DINENSTON 
0145 C STATEMENT 0¢101,.23) HUST GE CHANGED ALONG WITH DOG LOOP 26,30 
0146 C LINE AFTER 210. 


0147 00 10 WT=1,101 
’ 0146 9 CALL READFCINBUF, TERR. IOBUF) 
0149 IF CTERR.LT. OCALE ERRCTERR.9) 
. 0130 IFCLOBUFC1). EQ. ICOHTIC#HT-1 
. 0151 C TEST THIRD CHARACTER TO BE A HUNBER 
0152 ITEST = TAND( JOBVF(2),1778))-608 
0153 IFCITEST.LY.0. OR. ITEST .CT.9) COTO § 
9134 CALL CODE 
0155 READCIOBUF. L110 COCNT.E), 081,203 
o156 0D WRITECE L10COC HTT), 051,20) 
0157 116 FORMATC4F6 .1,F8.4.F0.4,F12.3,F8.3.12F6.3) 
01358 0 CONTINUE 
0189 «6C¢ 
0160 C CREATE @ KEW COLURN GF DATACZSTH) WHICH IS DERIVED FROM N/HO 
016% %€ WHERE NaNO. OF MOLES AT TINE T AHO WO= INITIAL WO. OF HOLES. 
0162 =«C 
0163 00 20 NT=1,101 
9164 OCNT. 25 et O7¢ 1 .0-DCNT.7)) 
: 0168 20 CONTINUE 
- 0166 «#€C 
01627 C€ CALCULATE TC CONSIDERING TAU 7? AND TAU S . NICH 
o16@ #C 
: 0168 TCa2 OfSALGGCOCNTC-2,25>/DCNTC-4.23)) 
0170 C CALCULATE A TAU. CREATES A NEU COLUWN OF DATAC2Z4TH) WHICH IS TINE 
0171 «C HORWALIZED. TT TS WORMALIZEO TO FILL YALVE CLOSURE AS 1.00. 
' 0172 C TAUSXBAR/XBAR SUB C. 
0173 ~«¢ 
0174 00 36 NT#1,10!8 
0175 OCNT. 248 OCHT, 7370¢35,7) 
0176 DT CENT-NTC-1 
017? IFCNT CT. NIC IDCHT. 24281. 04DTC/TC 


a17¢ 3¢ CONTINUE 


Pat Nene ob ae tls Al eters agar 


0179 
0180 
0101 
6102 
0103 
0164 
01863 
0106 
010? 
0188 
0109 
6196 
0191 
0192 
0193 
0194 
0195 
O196 
0137 
0198 
01389 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
O26? 
0208 
0209 
o210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
9225 
0226 
0227 
0228 
0229 
0230 
6231 
0232 
0233 
0234 
0235 
0236 
0237 
0236 
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c 
C CREATES A NEW ARRAY.01(S6,21) 
C 
BO 200 121,20 
OICL. 1 8dC1,7) 
200 CONTINUE 


Cc 
C CONSTANTS 


MT#1 
MTK=2 
TAUR=0 .05 
210 = NTSNTe1 
TFCHT.GT.2102960 10 300 
215) IFCOCHT. 24). LT. TAUKIGO TO 210 


¢ 
C SI2E OF THE TINE INCRENEWT I THE TAU TABLE. 
C 
DD24eDCNT,24)-OCHT-1,24) 
C 
C INWTERPOLATES FOR THE NEU TROLE WERMALIZED TO TAY AND 
€ BUILDS @ WEY ARRAY, DICS0,21) 
c 


00 220 581,20 
OVCMTK. TP 2OCNT-1,1) 
IFCOD24 GT .0. COOOL IDICHTK, LsDICHTK, TIOCBCNY. I )-BCHT-1.19) 
1 aC TAUK-DCNT-1,24))/D024 
220 CONTINUE 
TFCMTK.GE.S@)60 10 300 
NIKSHTKeS 
TAUKSTAUK CO 05 
GO ta 215 
300 TAUKNSTAUK-@.05 
0 VRITECG, 150 ITC, TAUKN, ACL ATC 
C WRITE VALUES TO THE TEMPORARY DISC FILE 
130 FORMATCLH1,2F10.2,2110,1W ) 


WRITE OUT SELECTED VALUES TO THE TEMPORARY DISC FILE, THPBUF: 
TCs 
TAUKA= 
HCe 
NTCe SCAN WHERE THE VALVE IS FULLY CLOSED. 


AannAaanaan 


CALL CODE 
VRITECTOBUF.LIS0DTC, TAUKMLNC. NIC 
CALL WRITFCOUTBUF. TERR. leBuF, 21) 
LFCTERR. LT. OCALL ERRCIERR, 160) 

C WRITE THE DATA TO THE TEMPORARY DISC FILE “THPBUF® 
OO 310 NTKet, 36 


ONTKANTK-3% 
OLCHTK, 21)20 OS eDNTK 

166 FORMATCiH .FS.1,3F6.1,F68.2,F8.4,F6.9,F8.3,12F6.3-F3.2,98 2 
CALL CODE 


WRITECTOBUF, 160 CDOICHTK,.1),Iei,21) 

CALL WRITFCOUTBUF, TERR. TOBUF, 66) 

IFCLERR LT. OCALL ERRCIERR, 310) 
310 CONTINUE 


Ta 


c 
C PICK UP THE WEXT CASE 10 PROCESS 
¢ 


89 


ee - Stet ee OS 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


0239 co Te 1 
o24¢ oC 
0241 C WRITE OUT A LIWE OF BLANKS AT THE EWD OF TEMPORARY FILE. 
0242 ¢ 
0243 $090 I0BUFCLO1>=13 
6244 DO 9091 181,100 
0245 «9091 LOOUFCT = IBLANK 
0246 CALL URITFCOUTOUF, TERR. TOMUF, 101) 
024? IFCLERR LT. OICALL ERRCTERR, 9091) 
0248 RETURN 
0248 END 
0280 6¢ 
0253 etcecceececcecececececcecceecececcecececeececceccecee 
g282 ¢ 
0283 SUBROUTINE CINFVCINGUE. CUTBUF) 
0254 INTEGER INBUFC 144), QUTBUFC 144), TOQUFCIO0), COHFIC 69), CBUF2( 62) 
0235 DIMENSION S1¢650,21).92¢50,21),56¢50,212,05¢390,21) 
0256 «¢ 
0257 C ZEROS ALL THE ARRAYS WHERE $1 VILL BE SUMS.S2 SUM OF SQUARES. SC 
o28@ = ¢ ,AND DS 
259 OC 
0260 «1 DO 10 WT#1,50 
6261 DO 10 [91,21 
0262 SLCHT.1 20.0 
0263 S2CNT,1)20.0 
0264 SCCHT,.1)20.0 
0265 BSCHT.1)=0.0 
0266 {0 CONTINUE 
0267 C 
0268 C COUNTER FOR THE NUMBER OF CASES PROCESSED 
0269 «¢ 
0270 CH=-1.0 
0271 12 CHCHel.0 
0272 «¢ 
0273 C READ IW THE FIRST LINE OF DATA FROK TEMPORARY FILE. 
0274 ~«C 
0275 CALL READFCINBUE, TERR, ICRUF 
0276 IFCTERR.LT O)CALL ERRCTERR, 12) 
0277 CALL CODE 
0276 READCITOBUF.100)TC, TAUR, NC 
0279 260 FORMATC2F10.2,110) 
6280 IFCNC.EQ.0)60 10 500 
0284 OC 
0282 C READ IN SO LINES OF OATA FROM THE TEMPORARY FILE, WRITE THEN INTO 
0203 C BUFFER SGCHY.1) AND ADO THEN TO @UFFER St AND STGRE IN BUFFER $1. 
0284 C ALSO SQUARE SG.AND ADD TO BUFFER $2 AND STORE IW $2. 
02985 «Cc 
0206 00 26 WT=1,50 
020? CALL READECINOUF, TERR, TOBUF) 
0288 IFCLERR.LT.OCALL ERRCTERR, 110) 
0299 CALL CODE 
0290 READCTOBUF. 110 CSGCNT, 1), 104,21) 
0291 «1106 FORMATC4F6.1.F8 .$,F8.4,F6.3,F8.3,12F6.3,F5.2) 
0292 00 20 [91,21 
| ‘ 0293 SLCHT.T@SICHT. L24SGCNT. TD) 
0294 S2CNT. 1 IeS2CHT, TI4SGCNT, Lee 
0295 20 «= CONTINUE 
0296 =6C 
6297 C REPEAT FOR ALL THE CASES IN THE TEMPORARY FILE. 
o29@ Cc 


02399 
9100 
0301 
0302 
9363 
0304 
9365 
oj06 
939? 
9103 
0304 
0319 
oy1t 
o312 
ayia 
9314 
a3135 
9316 
Q31? 
316 
aji19 
0320 
0321 
0322 
0323 
0324 
0123 
9326 
032? 
0329 
0325 
0339 
0331 
0332 
9333 
0334 
0335 
0336 
033? 
0338 
0333 
9340 
9341 
0142 
0343 
0344 
0343 
0346 
034? 
0344 
0349 
0330 
9351 
0332 
6133 
0354 
0335 
0336 
03157 
9138 


oan 


CALCULATE THE AVERAGE VALUES FOR THE X NO. 
CSUMS3. S2CSUH OF SQUARES?. AND SSCCSUM OF DIFFERENCE OF SQUARES) 


eannwc. 


Qaane 
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Go Te 12 


CALCULATE THE AVERAGE MEAN PRESSURANT AT THE 2157 TINE FROM 
WELL GFTER VALVE CLOSURE. 


XBARAVSS1023,7I)7CN 


00 320 WT21,.50 

DO S10 [=1,21 
SLCHT. TI=StCNT,. 197CN 
SINT TE =S2CNT, LOPEN 


SEIMITISCIZE aRRa? SG 


SGCNT. 1320.0 
SGG=S2CNT. 19-SUENT, Yawn 
TECSEG.GT 0. OC 2SGCNT. 122SQRTISEG) 


TROL GT? AND. L.LT. 22 20SCHT- T22S10NT,1)~SLCNT.7) 


S2CNT. 10.6 


IFCL GT .7. AND. I .LT. 22)S82CHT- 1 2S1CNT, TIC XBARAY 


OSCHT.TISOSCNT. TY/CXBARAY 


IFCE GT.7 AND. TLV. 22SEC NT. FE deSGCHT. TI7ABARAY 


TECY EQ. 22382CNT. Td=Si0N1, * 

TFCE EG. 223SGONT, L=Stent. 1) 

TFCE EQ 22 0OSCNT, L281 ONT, 1) 
CONTINUE 

TFCHT GT.20. OR NT LT.59G0 TO $20 

TEAR=S1ONT.2 99273 .2 

TOSS102.2)4273.2 

OTHARASICNT, 29-SECNT-1£,2) 

GHat .O7€4 .O~SLONTL7 2?) 

SNieL D/C L.O-SECNT- 6.77) 

OLHEALOGCSHCSNE? 

IFCOLH.LE.0. 0000f960 TA 520 

QETASSICNT. 5) 

TS3C0 4eBE TASC TEAR-TO24TBARtDOTBAR/DLN DSS 4 

S2CNT-.2)=TS-273 .2 


S2CNT.6 DEC SECKT 4 I-S2CHT, 2) CC SLONT. 3 I-SICNT. 4) /SXBARAY 
WRITECG, 997 1TBAR. TO, B7BRR SN. ENIT, OLN,BETALTS 


FORMAYCIH .3F8.1,3F8.4,2F8.2) 
CONTINGE 


FORMATC/C IH .F5.1,3F6.2,F8.2,F8 4,F6.3,F8.3,12F6.3,F3.2)) 


WRITECG, 1206 )C¢CSLCNTL ED, Fat, 21). NT21,950) 


WRITE A HEADING FOR THE FIRST STAT TABLE.S) 


CaLt COdE 

WRITEC IGBUF.65) 

FORMATC’OQ MEAN VALUES OF ALL QUANTITIES ‘,/7) 
CALL WRITECOQUTBUF, TERR. TOBUF.17) 
TFCLERR LT. OYCALL ERRCIERR.65) 

CaLt Cave 

WAITECCRUFLL. 1010) 


FOOMATC*O TIME". UX, * TMP, C®. 88, "TMPLC®. IX," THPLC*. 3X, "BETA", 
2K,"GETAS™. 3%," X “, 20%. "MEAN PRESSURANT FRACTIONS AT" 


" LOCATIONS 1°,22x,. "TAU" > 


CALL CODE 
WRITECCBUF2,1020) 
FORNAT.* SEC°, 2K, *°INIT", 2X." "LEX,* 
91 
oe PET ie ~ =. Gq ~ & oe ent ewes: 


QF CASES FOR ARRAY Si 


“,9R, "THETA", 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


0359 i Spe es oes Geek tae aye "4°,5N,°S",5%. 76", 
b368 2 by Oe eS ks ey Pe oe) ae eee 2 ee ee 2 ee eee ye © 
o361 CALL WRITFCOUTBUF,. TERR. CBUFIL, a 
0362 TFCITERR.LT.0) CALL ERRC TERR) 
0363 CALL WRITECQUTGUF, TERR, CAUFZ,63) 
0364 IFCTERR.LT.0) CALL ERRC TERR) 
0363 CALL WBRITILCSL.OUTBUF) 
0366 ©€ 
0367 jC WRITE A HEADING FOR THE SECOND STAT TABLE. $2 
o3o8 ¢ 
0369 CALL CODE 
0370 WRITEC IOBUF.70) 
0373 «70 FORMATC’1 NORMALIZED MEAN LOCAL’ 
0372 1.’ PRESSUR@NT FRACTIONS ’,/7) 
0373 CALL WRITFCOUTBUF, TERR, LOBUF,23) 
0374 TFCTERR.LT OSCALL ERRCIERR) 
0375 CALL YRIT2Z(S2,OUTBUF) 
0376 «CC 
0377 C WRITE A HEADING FOR THE THIRD STAT TABLE.S 
o378@ é6¢ 
0379 ~«6¢ 
03890 CRLL CODE 
0381 WRITEC TOBUF,75) 
0382 ¢5 FORMATO’ S STANDARD REVIATION OF MEAWR LOCAL’ 
0383 1,’ PREGSURANT FRACTIONS °) 
03764 CALL WRHIITFEC UUTAUF, TERR, L8BUFE, 29) 
03383 TFC TERR LT. 9 CALL ERRCTERR 
0386 CALL @HIT2CSG UUTEUrs 
0387 #C 
0386 C WRITE A HEADING FOR THE FORTH STAT TABLE. OS 
Q389 C 
0330 CALL CODE 
0393 VBITED TORE, AO) 
03492 a: FARM SS PU aT LNs OF NFAN LOCAL’ 
0333 Let py LT a a 
0344 CAEL HM hae ME oR PE OEUE 74) 
0335 LFS TERR LL T Oo UML L ERRCL ERR) 
0396 CALL WRIT2C0S.0U01 BUF) 
039? ¢ 
0398 (¢C WRITE THF WUNRER 9% Candi S TREALED 
0339 
0400 NCHSCH 
0401 CALL CODE 
0462 WRI TEC TOBUF, FIO HEN 
6403 Aah WRVUE. Prete vEPR TORVELS) 
9404 TROTERN ad Pees or dere 
9403 $4 eURNAr hide. le, eM CAGk SD 
0496 RETUARK 
040? Ean 
0404 #¢ 
0409 ceheccenceeceeece Chee eee ci dtu ct ii citer tenesne’ 
o410 = 6C¢ 
0411 SUBROUTINE URITICAR,.OUTBUF) 
o412 oC 
0413 C THIS $5 A SUBROUTINE THAT QUTPUTS THE DATA TO A DISC FILE. ONANE 
0414 C FRAG ASINST FUR THE MFAN VALUES GF ALL QUANTITIES. 
o41s5) 6¢ 
0416 REAL ARs 50,21) 
0417 INTEGER TORUFC 100), 0UTBUFC 144) 
o4ie C¢ 
92 


mae 


feat ; ariel 


so +See 
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0419 00 20 NT=1-30 

0429 CRLE CODE 

o421 HRITECTOGUF. L20)CARCNT, DI, 1 2b. 28) 

9422 3:9 FORMAT th -F5 ¢.'Fe te Fu 1.88. 4, FG. 3,78. 3,12F6. 3,F 5. 2,00 2 
0423 CALL WRAT?T utp ple tHE, 66) 

0424 22 TERR LP Wit. . Phebe 4 


0425 mL WEA 

0426 iG 

042? c 

O4o—8 fhrccetercekeice khles 7 CeCe: cer ek en ec eel ean fees hut rere eS 
0429 iC 

0439 SUP Rash ee MR Pe Re a 

o43i ¢ 

0432 CC “NES 33 A SUMO tae THE Het evds tet arm 19 A DISS FILE, OHANE 
9433 Co rtdu othe t Van meena sla pend Seatttass DEV GRATION AND DEVI ALT OH 
434 9 uv mean 

435 £ 

e43e REGL ARCSA. 21) 

943? IHPESER iGHURC 140), SUTBUFC 1442, CBUFEI C22), CBUFIC4Z) 
9439 e 

0433 C Wehr Alt VHRR frase Wea ewee gy 

o44n ¢ 

0441 Cali Cob: 

0442 WO TEC CHUL, 19107 

0443 fete FOUHAT tae tes ec AS TANS 1%) 

9444 SHER Ended 

04435 WRITE CHUL Osea. daa, dd) 

0446 070 FOMMATCHSH .I3C AML Lad Yau *) 

044? Cali We TRC OUTBUF. cEeR, CBNFEL, 212) 

0444 PRCSERP VT ay ova rats ius 

0449 CALL Mea Sys Haase ea tw ad 

9459 PF CCERe CF 0% CALL ERR TERR: 

o45i o¢ 

0452 ¢€ HITE GUT THE DATA Th THE BISe 

0453) = 

9454 wf ou ‘ist Sg 

0435 Chat Cupe 

0436 URTTECSORUF. 12790 )CARCMT,.E),328-21) 

045? Ja Fuetut. ot DoF a 42S L 20a) 

0439 PALL Werte gt. teee lee Guam ate 

94359 eC Rw Ll et One oe ERE 

046% 29 CONTINUE 

0461 RETUPH 

0462 ENT 

0463 Enns 


I eS rere aie 
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APPENDIX C 
Program CINST accepts data from CINFR and produces the C-, D-, and E-tables [6]. 


95 


RA at ee a ee ne ae enn es 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


QCINSE Te0eees 18 OH CROEGOSE USING C6060 BLKS Reoooe 


eeot FINA 
oee2 ¢ : 
@003 C= ROTENIT! THIS 16 & MOOTFIED FORK OF CINST TO WANDLE LONGER DUNP 
@004 C «TIMES. IT DOES WOT CHANGE THE WOMOTNENSTONAL TINE TAU AT 2.5. 
0005 PROGRAM CINST( 4.99), FUM VERSION @102t2 HO0Z 
ee0e 
ooo? ¢ 
0008 C THIS PROGRAN DOES STATISTICS GH THE DATA FRON CINFR 
0608 C THE RUNS FROM CINFR ARE GROUPED ACCORDING 10 A PARTICULAR 
Q61d CC TEST CONFIGURATION. THE INPUT DATA IG FROM DISC FILES THAT 
OO1f C WERE CREATED FROM CIHFR. TRE OUTPUT DATA FROM THIS PROGRAK 
do12) C iS STOKE IM DESC FILES AND RAYBE TRANSFERED 10 WACHETIC TAPE 
9212 C WITH STORE COMMANDS FROH THE FILE MANAGER. 
eei4 CC 
ears ¢ 
0016 C THIS PROGRAH UAS WRITTEN BY PROF. R. C. COMLETT. WHIV OF 
0017 C WASHINGTON, SEATTLE WASHINGTON. . 
0018 C THIS PROGRAM WAS ADAPTED FOR USE OH THE WRL COMPUTER, CODE 
0619 C 6180 BY A. BRODER AND DO. IWORITZ. 
002@ C IT WAS GEEN COAMNENTED OY F. ¥. WILLIANS. 
0021 C PROGRAM HOGIFIEO GY F.U.UILLIAMS 910404 
‘ 0022 ¢ 
e023 ¢ 
0024 IWTEGER IMANEC 3), 191ZE( 2), 0BUFC 144), 1BUF( 144) 
0025 INTEGER TRUFC 144), ONANEC 2). THANEC 3), IPARCS)D 
0926 COMMON IPAR 
: 4492? DATA THANE/2HTH, 2HPR. 2HUF/ 
: oe26 DATA IBLANK2H / 
9029 CALL RNPARCIPARD 
: vu3e WRETECTPAR, 1) 
' on31 1 FORMATC’CARTRIOGE G@, IWPUT FILE HARE 2C15,A6)") 
6432 READCIPAR,.2)1CR, INANE 
0033 2 FORMATC15,1¥, 382) 
9934 WRITECTPAR, 3) 
0035 3 FORMATC’CARTRIOGE @, OUTPUT FILE HANE 2(15,96)') 
0036 READ(CTPAR.2)1C92,0HARE 
093? 13E2EC 198-1 
0030 ITyPE=3 
aoa? ¢ 
004@ CC CREATE OUTPUT FILE 
coat ¢ 
0042 CALL CREATCOBUF, TERR, QHANE ,TSIZE,ITYPE, LOUM, ICRZ) 
9043 TFCTERR.LT.OCALL ERRCTERR) 
9944 ¢ 
0043 C OPEN INPUT FILE 
9046 ¢ 
0047 CALL OPENCIQUF JERR. IMAME, 2% 5%, DUN, ICR) 
004g TFCTERA.LT.ODCALL ERRCIE 
9049 6¢ 
0050 C CREATE TEMPORARY FILE FOR S10..  «TERNEDIATE RESULTS 
oo5t C FROM CIRAY 
e052 ¢ 
00532 CALL CREATC TOUF, TERR. THANE, T81ZE,11YPE, 1DUN) 
0034 TFCTERR.LT.O0CALL EARCTERRD 
oess ¢ 
C056 C CLARY 19 A SUBMOUTINE WHICH SHTERPOLATES THE DATA, CREATES A 
0057 C HONDIMENSIONAL TINE AND HORMALIZES THE DATA TO IT. 
ease ¢ 
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0959 1000 FORMATC’GIVE CARTRIDGE &. RANE FOR IHPUT FILE’ 


0960 1,°C25,0697) 
0061 REAOCTPARC1), 1002) TCR NAKE 
0062 1002 FORHATCIS.1%, 302) 
0063 WRITEC IPARC 1), 1004) 
0064 1004 TORMATC’GIVE CARTRIDGE #®, HANE FOR OUTPUT FILE’ 
9965 1,°C1S. 869°) 
0066 READCLTPARCE),100201CR2, KANE? 
006? ISIZEC 4) 8-3 
0068 ITYPE 2 3 
0069 «C 
0070 «C CREATE A OISK FILE 
oo7t ¢ 
072 CALL CREATCQBUF, TERR HAMED,ISIZE,ITYPE, IDUM, ICR2) 
0073 TFC TERR. LT. OCALL ERRCTPARCE), TERR) 
0974 =C 
oa75 oC OPEN INPUT FILE 
3076 c 
007? CALL OPENCIBUF, TERR, NAME. TOUN,IDUN, ICR) 
0078 LEC TERR. LT. O CALL ERRCIPARCL I TERR) 
0079 «¢ 
0080 «td 00 9 181,100 
ovei ¢ 
0092 ¢€ CONSTRUCT A LIKE OF BLANKS 
' 0083 + 
1 0084 9 LQBUFCI) = IBLANK 
0085 CULL READFCIBUF, TERR. A> 
0086 TECTERR LT. OCALL EARCIPARCE) TERR) : 
90a? ¢ 
00e@ 6¢ CHECK FOR EOF 
7 o0as ¢ ; 
7 009¢@ TFCACL).E@.XESIGO TO 9096 
“ 0091 CALL READFCIOUF, TERR, IOBUF) 
‘ 6692 TFCTERR.LT.0) COLL ERRCIPARC1), TERR) i 
; 0092 CALL CQUE 
0094 PEADCIOBUF. 20)NTILNT, OT, 70, TP,AN, VT, CF.CABALUP 
9998 C 
ve96 CC DESCRIPTION OF VARIBLE NEANING 
0097 ¢ 
oo9a ¢ WTL= HO. OF THERMOCQUPLES, HT=NO. OF POINTS IW DATA TINE SERIES, 
0099 ¢ DIsTIME SERIES WOMIWHAL INCREMENT (SEC), TO AND TP RESPECTIVELY 
o10e@ ¢ EGUAL TIMES OF VALVE OPENING GND CLOGURE CSEC). AH=NOZZ2LE NOMINAL 
Olol ¢ AREA (CMOS), VIATANK VOLUNE (Meo3). CESFLOW COEFFICIENT - j 
6102 ¢ IF CF IS INPUT AS ZERG AND NTI EXCEEDS 3 CF IS DEFAULT CALCULATED 
0103 «C USING MEAN @F TC DATA AS ESTIMATE GF MEAN TANK TEMPERATURE, 
o104 ¢ GA=SPEC. MEATS RATIO - IF INPUT AS ZERO ASSIGNED 1.4 DEFAULT, 
o10s ¢ UA=MOL. MT. OF AIR.- TF INPUT AS ZERO AQSICHED 28.97 DEFAULT. 
e106 C UPaHOL. WT. QF PRESGURANT - IF INPUY AG ZERO DEFAULT SET "UA. 
“ 0107 «C¢ 
0100 20 «FORNATC234,9F?.3) 
9109 ¢ 
Olle oC TF THERE ARE WE THERMOCOUPLES THE PROGRAM IS FINISHED 
: o1ss o¢ AND @ MESSAGE INDICATING COMPLETION WILL BE PRINTED 
| oti2 ¢ 
: ; o143 TECHTE.GT.0.0)60 TO 26 
o1t4 URITEC IPARC 2), 2000 NANED 
0115 2590 FORMAT C’AT THIS POINT CINFR 19 FINISHED BITH °,3R2) 
O1s6 stop 
oll? o¢ 


O16 ¢ TWETIALIZING HEAT RATIO, HOL. VEIGHT OF ATR, AND 


STONE, ALEXANDER, STREET, ST. AUBIN, AND WILLIAMS 


e119) 6¢ MAL. VEIGHT SOF PRESSURE TO CEFAULT IF APPROPRIATE 

e12¢ 6¢ 

0121 3¢@ TFCGA.EO.6.0)6n01 4 

o122 TFCURL EO .0.@)¥ana8 . 94 

o123 TFC UP. EQ.¢.0>)¥Psta 

0124 ~«6¢ 

o123 «6C WRITES TO LIWE PRINTER 

or26 6C 

o12?7 «#8 URITECG. 40 NTILNT, DT. TO. TP. AN.VT. CR. UA. UF 

0126 «40 FORMATCLRIZONI4HPROGRAM CINFER/71NO ATI aT oT ind vw? 
o328 =D i Au Lai Ga wa UPAIN I4,15.F? .3.7F8. 3) 
ot3¢e ¢ 

0131 -C TF HUMBER OF THERMOCOUPLES ARE LESS GR EQUAL TO 5 

e132 ~=¢6C GR IF FLOM COEFFICIENT EQUALS 6. PRINT NESSACE INDICATING 
0133 ~«€¢ $0 AND ALSG PRINT A NESSACE INBICATING PROGRAM IS 

@134 ~=«6C COMPLETED. 

0133 ~«6C¢ 

0136 IFCNTT.GY.S.O0R8 .CF.NE.0.0)68 TH 60 

0137 WAITEC TPARC 19,503 

o138 50 FORMHATCZONONG FLOW COEFFICIENT) 

0138 VRITEC IPARC1), 2000 NANE? 

0340 StoPp 

6141 ~C 

e142 6¢ 

143 )~«6¢ PRINT QUT FLOU COEFFICIENT IF Any 

e144 = 6C 


0145 69 TRCCE ME .0. O URE TEC TPARC1).70 CF 
0146 70 FORMATCQ2ONOFLOG COEF. LHPUT ASF7.4) 


0:47 6C 
o146 6C¢ PRINT OUT HUMBERS UP TO THE TETAL WURBER OF 
0149 «6 THERNOCOUPLES 
O:30 6¢ . 
otS1 0 URITECG.90) C1,I81, NTI) 
O152 DRO FORMATC2LHORAW TINE SERIES DATALION TIME Pp Ss Ts Lord 
6153 OD ULM -26KQANTATLLOLS/7IN 1.129.615) 
0154 00 t00 dat. UT 
0133 Rizd-t 
0156 TIMC SD aRLAOT 
0137 «6¢ 
o13e Cc MUST BE HATED TO NRL CATA RECORD. 
e158 ¢ 
4166 CALL READFL IQUF. TERR. IOBUF ) 
0161 TFCTERR.LT.0) CALL ERRCIPARC 2), TERR) 
162 CALi CODE 
: 9163 READCTOBUF, SOPC ID PSC). TEC UI CTICL Sd, Let MTT) 
0164 39 FORWMATCES .3,F? .3,84F5 3) 
: 0165 ~«€¢ 
5 e166 6¢ DESCIPTION OF YVARIGLES 
0167 ~«6C¢ TIMSTIMEC SEC), PsTANK PRESS. CATH), PSENOZZLE PRESS. CATH), 
or6@ Cc TS=NQZ2ZLE TOTAL TEMP. (DEG Cd. AND TISTEMP. CDOEG €) OF ITH Tc. 
0169 ~«€6C 
a17¢ = «#08 URITECE-SIOITINC ID POSIAPSCSD TECEICTECE dd, Tat WTI) 
0171 8110 FORMATCSHO, FS. 2-2F6.3.F6.1,9F 3.1710 .F2S.1,8FS 1) 
4 0172 100) CONTINUE 
o173~«O¢ 
o174 ~«6C 
e175 «OC CONVERT TEMP. DATA T0 DEG. K AND PRESS. DATA TO NEVTONS/ Heed. 
0176 ~«€6C¢ 
017? 00 120 gai, KT 
o178 PCJ 4PCS 99101922 .0 
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e179 PSC )=P8C9)0101322.¢0 

. 9194 Tg 18790 9)42792 
e181 DO 120 Isi.MT! 
0102 120 TICE. Se TICE, 3 19273.2 
e192 ¢ 
0184 =6C CONVERT AN TO Nee2, NOZZLE NOMINAL AREA 
e183) 6¢ 

a 0186 AN=ANSO. 0001 
0187 ~©¢ 
o198 ¢ ALTER TINE SERIES TQ INCLUDE To ane TP. 
o1e9 
0196 LaTovDT 
0191 eres 
0192 MeTP/DT 
6193 Wane! 
0194 IFCH-L.GT.4)60 TO 140 : 
e195 ¢ j 
0196 oc IF CH-L) I8 LESS OR EQUAL 10 4 PRINT OUT i 
0197 «¢ MESSSACE ANB STOP PROGRAN 
o198 oc 
0199 VAITEC TPARC1),130) 
0200 130 FORMATCS2NONOT ENOUGH FILLING DATA TO EVALUATE PRESSURANT FLOW 

0201 UAITEC TPARC 1), 2000 HANEZ 

0202 STOP 


0204 140 CONTINUE 

e203) (8 00 916 Jai. uT 
: 0206 B9TG URITECE. SI7ITINCID- PC UD PSCED,TECIICTICE I), T ot WTI) 
¥ O207 D9? FORMATCLHO,F?.2,2F20.1,F7.3701N .13F7.1) 


Cc 
: 0209 «C ADJUST TANK TEMPS. TO UNZFORM VALUE AT TIME 10. 
: o210 «6C CALCULATE MEAN TEMPERATURE. 
c 


e282 WTEFOKTE 

0213 CUTIENTEF 

0214 TOCL 90.0 

0213 DO 160 Tet. utT 


6217 TOCLIATOCLIOTICL UL /CUTI 
o2te {60 CONTINVE 

62198 dO 170 Tei, UTI 

0226 TCORSTECL I-“TICILL)D 

0221 00 170 Jel. nT 


0222 0 $70) TICES STACT. Jd TCOR 


0224 GAS CONST. RE CUQULECKGN-NOL/BEG K) AND CRIT. PRESS. RATIO RP 


aan 


0226 RG=6914.5 
022? RPOCZT. OFC GAOL. OC) DOCCERACCER-1 .0)) 


CALCULATE WENTWAL FLOW INTEGRAL ¢ ARRAY FLIND. REAN TEMP. € ARRAY TB), 
AND WO. HOLES IM TANK CARRAY CH). 


6229 
' 6236 


6232 06 190 Jat, aT 

@232 PRAT SANAKICRP, PCED PSCI)) 

0234 VELSSOQRTC2. CoGAeRESUPOTSCII/SCEA-1 . 0)0C 1. O-PRATOOCCER-1.0)/68))) 
0233 DENS SPSC S)/RE/ TEC I OPRATOOCS 6/68) 

6236 FLING) RANCVELCOENS 

6237 TACJ)#6.0 


o238 DO 100 Fut, NTI 


0239 
0240 
0241 
0242 
0243 
5244 
0245 
0246 
0247 
0248 
0248 
0280 
0231 
02382 
02383 
02354 
0255 
02356 
0257 
02358 
0259 
o26¢ 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
o271 
9272 
0273 
Q274 
02793 
0276 
O27? 
9270 
0279 
0286 
0281 
0202 
0283 
0204 
0263 
0206 
0287 
0288 
0209 
0296 
02391 
0292 
0293 
0294 
0295 
0296 
0297 
0298 


Araanan 


Aan 


240 
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TOCSISTBCUIATICI I IZCNTI 
CONTINUE 


ONC J SPC SOUT TBC D7RG 

URITEC 6. 91900, PRAT. VEL. DENS, FLING?) 
FORMATCLH -1S,4F25.4) 

CONTINUE 

IFCCF.WE.0.0)96@ TO 240 


CALCULATE FLOW DATA FROM WONINAL REA TENP. DATA CTMAT 18, FROM 
MEAN TC. DATA) AS ESTIMATE OF WEAN TANK TEMP. CIMPUT VALUE OF CF 
1S ZERO.+ THIS IS BETUEEN TO AnD TF. 

EVALUATE FLOM INTEGRAL FLINT. 


FLINT#=0.0 

tist-1 

00 200 J=L. Wi 

FLINTSELIMTOC FLING SDOFLINC Jol D072. COCTINC Jot D-TINCI))D 
CERCCHCHD-CHCL DOZFLINT 

VRITEC6. 2120)CF 

FORMATCQHOCFSFEE.4,61H -INFERRED USING REAK OF TC. DATA TO APPROX. 
1 MEAN TAKK TEMP. > 


DEVELOP CONSISTENT VALUES FOR WEAN TERP. T8 AND MO. NOLS. CR 
FOR NON~FILLING PERIODS. 


DO 220 Jai.t 
CHC J SCHL) 

TAC J IEPC I DOOT/CNC SARE 
00 230 Jen, aT 

THJ20.0 

DO 225 re1, NTI 
TRISTBUOTICI. JICCHTE 
CONTINUE 

CHC J DSCNC HM) 

TBC J APCD DOUT/CHC I D/RG 
O00 226 Tai, NTI 

TICE. JdSTICT. J TBCUD-TBY 
CONTINUE 

GO T0 260 


INTEGRATE FLOW INTO TANK USING IHPUT VALUE OF CF. 


00 250 Jai, UT 

TECI.LT.L CNC J DSENCLD 

TECE.GT.L AND ULE. MCHC UD OCHC I-28 DOCKS CEL ING J-1OFLING IDI72.O0C TIN 
ACUI“ TING I-2D) 

TEC U.GT.MICHC I OCHO RD 

TOC UPC I DOVTZCRCS DARE 


INTEGRATION OF TAIR AND TPRS 


COWTINUE 

URITECG.270)L.8 

FORMATCSONISUMNARY OF CALCULATIONS THRU ARRAYS TAIR ANB TPRE/3H Js 
132, 2%6WAND Meal375enNe0 J TIME TAIR TPRG TSTAR BETA XPBAR 
2 BETA/TSTAR/) ; 

FORMATCON ,13.9F7.1,F8.3,610.2) 

WIRDeHT-t 

00 460 J=L. NTMI 


100 


re ee 
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0299 TisTAcL) 
0309 TAIRCJ2TI 
0301 TPRSCJIBTSCL) 
0302 TSTARSCHCL ACCHCLO2 -CNCL)? 
0303 IFCJ.G7.0. AWD. TBCI).GT.71)960 10 420 
0104 Te2eTt 
0305 Ta2eT! 
0106 TS2eTScd) 
0307 P2aPCs) 
9308 CH2=CHC J) 
; 0103 CHL =GA-1.0 
o31¢ DLIPSC TAC UO 29-TLIZCO, 50C TAC I 42 26T3 )AALOGC PC I92d7PCLD) 
ouis CHUS*GMLSTIZCCACCTI-TSCL )4GROTSECL -T1) 
0312 BTACJIACL NOERASTSI-TO2-CH2ef DOL TBCI92 -TA ACOH O42 -CHCL ID IC 
9313 WCGMLAL 0O40 SaCTBCds2d-Ti)) 
; 03714 »D URITECG, 41005, 0L TP. CHU2 
OIL5 D410 FORMATCIHOIUELS, LOXRSHOLTPBFG. 3, 10K4HCNURFE 3) 
0316 GO TQ 450 
0317 420 TH1=T82 
0318 TSi2#TS2 
o31¢ Pt=P2 
; 0320 CNL=CN2 
: 0321 Tats Ta2 
4 0322 CHUL=CHU2 
0323 TS2s1SCJ) 
0324 TR2=TBCd) 
0325 P22PC(3) 
0326 CN2=CNCU) 
4 032? TBB=0.5e¢ TB14TH2) i 
: 9329 TSB=0.SeC1$197S2) 
5S 9329 PB=0 Se(PieP2) 
0336 CHB20. SOC CNHIOCH2) 
0331 TAD=TA! 
0332 CHUB=CHUS 
0333 DP=P2-Pt 
0334 ON=CH2-CN1 
O35 OTB27B2-T8t 
9336 Fie FALSE. 
| 9337 430 DIACHI/CAsTABYDP/PB-CHUB/ CHC ( CASISB-TEB)/CHBCDH-DTS) 
9330 TAZATALFOTA 
9339 TAB#9 Sec TALeTA2) 
0340 CHU2s( TAQ-TID/CTB2-TH) 
0341 CHUB=0 Sec CHULCHU2) 
0342 IFCFI9GO 10 446 
0343 FI=. TRUE. 
: 0344 co Ta 430 
: 0346S (440 TAIRCID=TA2 
0346 TFCI.LE.M-2)7STARECHB/DWODT 
0347 BTAC I 3260612. BO*GROTSB-THDODN/CHB-O7B 1/7CR1/¢ TOO-T1 DeTSTAR7OT 
0340 TPRGCS eC CNZOTR2-CHCL TAZ IAC CH2-CHCL) 
93149 TSAVEO SecTS2eTscc}) 
0354 TFC TPRSC J). GE. TSAVIGO TO 448 
. 0353 TPASid BTA 
03582 TAIRG J ETSAVOCN2/CHCL 9C TE2~TEAYD 


0383 $45) CONTINUE 
9354 =D WRITECG, 440 )3, TRL, TSE, PL, CHL, TAL, CHUL, TE2,TS2.-P2,CN2,TAZ.CHU2. TBR, 
0353 =» JTSH.9R CHB. TAB. CHUE.DP, DIB. OW. DTA, OT -TSTAR. TAIRC I): TPASCID-BTACI), 
o3356 «6D aTSaAy 

0357 0448 FORMATCAHOURTZ, LOXL7HTB,TS.P,CH.TA CHUL 
9794 8 QSHLH1, 2F9.1-FS.0,F8 4,78 1,78. 47 


0359 
0360 
0361 
0362 
6363 
0364 
0365 
0366 
0167 
0366 
2369 
9370 
9371 
0372 
$373 
9374 
9375 
0376 
037? 
0378 
0378 
0390 
0301 
0392 
$363 
0794 
6395 
0196 
0387 
9338 
9399 
9399 
0391 
0332 
0393 
0394 
0395 
0396 
0397 
0394 
9199 
| 9400 
9401 
| 8402 
, 9403 
b adea 
: 3443 


9496 
‘ 940? 
| 0408 
0409 

” 0410 

o4it 

o4i2 

04123 

9414 

o4t8 

0416 

a4t? 

3439 


430 


902 


94] 


AO 


MOA ANM 
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Z3KLH2, 2FR .1,F8 .0-F8.4.F8.1,F8 4/7 

SSAIMO, 2FA 1,F6.0,F8 4,78 1,78 47 

44M DPSFS GO, SX4HDTBAFS .{. IXTMONEFE 4, 35X4HD TAFE 1. SKIHDTSFE .3/ 
37H TSTARAFS LL SKINTAIREFS. 2, SXSHTPRSSFE L. SXIMBETASFS 1, 5KSNTSAVEF 
68.) 

XPBC5)80 0 

TECTOIRG I). WE. TPRSC I) IXPRC I ACTRIRG I - TEC UD IACTAIRG ID 

2-IPRSCID3 

BITSCIIMATACII/TSTAR 

GCRITECE, 24020, TIM ST), TAIN SD. TPRSCSIATSTAR. BTACT I KPBCS),BTISCI? 
CONTINUE 


00 926 J=1,HKT 

VRITECG. 92SITINC AD, TBC II CHCUI-CTICL 2). Tet, WTr) 
FORMATCLHO. FLO. J.F10.2,F25 .4/7C1H »7F10.29) 
CONTINUE 


CALCULATION AND DISPLAY GF PRESSURAKT FRACTIONS 


CALL CODE 

URITEC SOBUF,.8O2CACT), 121,19) 

FORMATLIGNLT INFERRED PRESSURANT DISTRIGUTION - .1¢084) 
CALL URITFCOBUF, TERR. IOBUF,.38) 

ITFCTERR. LT. SCALL ERRCTPARCLD TERR) 

CALL WRITFCQBUF. IERR. COUFL,323 

TFL TERR LT. OsCALL ERRCIPARCL >, TERR) 

Cate CODE 

WRTTECIOBUF. 8O39C1, 121,23) 

FORMATC2QH CSEC) MEAH AIR PRESSURANT,,20X9HNEAN FT = 32,1216) 
CALL WRITFCOBUF, TERR, 10BUF,635) 

CFC TERR LT. 2 CALE ERRUIPARCL I TERR) 


CONSTRUCT A LINE OF BLANKS 


00 G04 I=1,100 
TOBUFC I) = IBLANK 


FORMATCIN .FS.2,3F6.1.F8.1,F8 .4,F12.3,F8.3,12F6.3) 

TMESO 0 

XPIsd.0 

TBCL DS TBCL “279.2 

CALL URETFCOBUF, JERR, COUF3,12) 

JECTERR LT. GILALL ERRCIPARCS D. TERR) 

Call CODE 

WARITEC TOQUF BOG ITNE. THCL), TECLI.BYACL>- BFISCLIXPOCLI,CXPL. Tel,13) 
CALL BRITFCOBUF, TERR, IOBUF.66) 

FEO TERR. LT. OCALL ERRCIPARCE TERR) 


WOTET!!! THIS HAS TO BE CHANGED TO COINCIDE WITH WHAT FS AVAILABLE 


IN SCONS AND YWAT CINST ITS EXPECTING. THE KB2L+100 THE 100 HAS 10 
QE CRANGED. 


KAsbol 
KBeL +100 


bO 830 Keka, KB 
TRE *TIMCK -TINCL) 


102 


eas 
6426 
0421 
0422 
6423 
6424 
0423 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
6434 
0435 
0436 
0437 
0438 
0439 
0446 


0442 
0443 


0445 
0447 
0449 


0431 
0432 


0434 


0436 
0437 


0439 
0460 
0461 
0463 
0465 


0466 
0467 


0471 


0469 


0472 
0474 


0476 
G47? 


830 


$32 


a32 


833 


aon 


aaa 


OO @30 [=t,3%3 
RPC L326.0 


IFC TAIRA KY. WE. TBCK DIXRPCT at. DOCKPBCK Dec TAIRCKI-TICELKID/ 
ACTAIRCK)-TBCK)) 


CONTINUE 
TACK 2 TBCK)-273.2 
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TAIRCK DBETAIRCK -273.2 
TPRSCK DETPRECK 1-273 .2 
TFCK .WE.L4¢2960 TO 83% 
CALL WRITFCOBUF, TERR, COUFE.9) 


TFCTERR.LT.O) CALL ERC TP@RC 1), TERR) 


TFCK NE.W-2)60 TO 932 
CALL WRITFCOBUF, TERR. COUFS.12) 


LECIERR. LT. @)CALL ERRCIPARCS TERR) 
TFCK .WE.#1G0 TO 633 


CALL URITFCOBUF, TERR, CBOUFE.10) 


IFCTERR.LT.@CALL ERRCEPARC1 DD. TERR) 


CALL CODE 


VRIVEC TORRE BOG ITNE. TECK), TAIRCK). TPRSCK) GTACKI,ETTSCK),XPBCK), 
1CNPC1),F81,13) 


CALL URITFCQODF, TERR, IODUF.66) 


TFCLERR. LY. Q)CALL ERRCIPARCL TERR) 


CALL URITECOBUF, TERR, COUF2,61) 


TFCIERR.C7.6) CALL ERRCIPARC 2), TERR) 


RETURN TO BEGINNING OF PROGRAN 


Go T6 10 


CONSTRUCT LINE OF BLANKS 


DO 9091 T=et.100 
TQBUFC Ta IBLANK 


CHECK FOR EGF MARKER 


CALL URITFCOBUF, IERR, XES,2) 


TFCTERR. LT. OYCALL ERRCIPARCED. TERR) 


00 9092 I*1,4 


CALL URITFCOBUF, TERR, IOBUF, 100) 


TFCTERR. LT. OCALL ERRCIPARCE)D. TERR) 
DETERMINE THE ACTUAL LOCATION OF THE RECORD POINTS 


CALL LOCFCOBUF, TERR. TOUW,. IRB, 1DUM, ISEC) 
IFCTERR. LT. OCALL EARCI PARCEL. TERR) 


TTRUN = ISEC/2 ~ (IRB - 1) 


CLOSE THE OISK FILE 


CALL CLOSEC OBUF., TERR, ITRUN) 


TECTERR.LT.Q2CALL ERRCIPARCI TERR) 


PRINT ENDING NHESSAGE 


URITEC TPARC 1), 2600 SHANER 


370P 
eno 


LL ey 


e479 
o4ge 
0401 
0482 
0483 
4494 
6463 
0496 
6497 
9498 
oaes 
0490 
0491 
0492 
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t 
CHSSSEHSSSSSHSSSSSSSHSHSVUSHSAHSSHSHSSSHSASSSHRSSSHSHSSHSSTHSSKSESSHUSERESHS 
C SUBROUTINE TO PRINT OUT FAP ERRORS AS THEY OCCUR 
C FMP ERROR DESCRIPTIONS ARE LECATEO IW “RTE 48 
C PROGRAMMERS’ RET SPOOLING Mamuat’ 
t 
SUBROUTINE ERRCLU. TERR) 
INTEGER LU. TERR 
VRITECLUL 10 TERR 
19 FORMATC’ TERR = °,16) 
sToP 
END 
CHS SseseSHSASSHSHSHSHSHSSSO HSS SSHAHKESSESOSSSEHHSSEO ESE HET ESOSS 
ENDS 
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